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UPDATE IV 


Date: 04Aug84 

to Document: DASL DICTIONARY 
Update: III 
Date: 03Aug83 

This update completely replaces previous 
/ersions of the DASL DICTIONARY. 


Since the dictionary is still under construction, 
please send any corrections you might note to 
Gene Hughes via RMS Mail. Anyone, even with older 
versions may send in their name, location, and 
dictionary version, to get updates. 

following is a summary of changes in this update. 


Major DASL CHANGES 


lost of the changes in this update reflect additions 
to the DASL include file definitions relevent to RMS 
2 . 2 . 


indicator 


Ml changes in this update are marked in the right 
land column with a: |*. 


Changes to FUNCTION SECTION 


Wd New FUNCTIONS: STXWRITB and SUERMSG 
Change FUNCTION result: SMAP4K result to DSCCODE 
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Changes in TYPES SECTION 


SABSHDR field $LIBSPI0 type changed to SNAMET 
$SYSTINFO.$TMADJ is now [3] BYTE 
$ACB.$ACBMULT field removed 
$FCBAIMI initializer string 
$PCRCIF2 type was SET now SETW 

Changes in WORD SECTION 

Added WORDS (defined values): 

SECSTM2, SECSTM3, SECTSK29, SECWI001 

$g_ (Workstation graphics characters: 

in new include file: DSWORKSTN) 

SFFMTXFD SSKDKW20 

$WS3FD4 (in type field $WSC0NFDS.$WSC0N3) 
SWS2EFK0 (a flag in SWSC0NF2) 

SWSESC1, SWSK1CHR (SWSIO control words; plus a 
lot of extended function 
keyboard codes, and 
Escape-Sequence-1 codes that 
follow SWSESCl.) 

See: FUNCTIONS SWSIO, 
and LISTS $WS.... 


Change VALUES: SLIBMXPG from 59 to 57 (in SABSHDR) 
SWSKCTLT from SWSKFULL to SWSKDLLR 
SWSIOFCL from SWSCURDF to SWSK1CHR 
SPRINORM from SPRIMAX/2 to SNRPRIOR/2 

Change WORDS: SPABF002 to SPABFDATA 
SSKWS7 to SSKWS823 
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PREFACE: 


This dictionary is an alphabetically organized 
presentation of the DASL Language Interface to the 
RMS System Function Routines. 


The DASL Interface to RMS provided by Datapoint 

26 DASL text include files, and 
3 Relocatable code libraries: D$LIB, FAR, and RMSUFRS 

( The libraries define external 
functions, variables and values.) 


The programmer will also require the DASL 
Compiler, the SNAP Assembler and the LINK and EASL 
Utilities to generate programs. 


HOW THE DICTIONARY IS ORGANIZED 


The RMS System Calls, File Access Routines, and 
User Function Routines are described in terms of DASL 
syntax and parameter requirements in the FUNCTIONS 
SECTION. DASL keywords are included in this section 
for convenient reference. 

Function parameters which are of a predefined 
variable structure type may then be found described in 
the TYPES and STRUCTURES SECTION. (Other parameters 
which are standard DASL variable types will be fully 
described and commented with the Function.) 

Pre-defined parameter values will be listed with 
the functions and types that use them, and their 
descriptions may be found in the WORD SECTION and in 
the LIST SECTION of flags and value groups. Also in 
the WORD section will be entries for all named 
functions, variables, structures, sub-structure 
fields, DASL keywords, and Datapoint abbreviations. 
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HOW TO USE THE DICTIONARY 


Look CAPITALIZED words or abbreviations up in 
the WORDS SECTION if in doubt as to their type or 
meaning. Then look in either the TYPE or FUNCTION 
SECTIONS for additional description. See the 
information at the front of the WORDS section 
explaining the notation method of cross-referencing. 

Also, the LISTS SECTION can be useful to find 
related functions, types and values. 

HINTS: 

1) Leading dollar signs "$" are not recognized in 
alphabetization. Example: 

DSGET24 
DBLBUFF $ 

$ DCB 

SDGETCRK 


2 ) Each section has format explanation 
at the beginning. 


NOTE: 

This document provides referencing to the 

RMS System Programmer's Reference Manual 


which should be available to the programmer for 
obtaining more specific details on some of the RMS 
system functions. 

The descriptions here will give the DASL 
programmer sufficient orientation to the function 
syntax and names and to the parameter names, so that 
the assembly language descriptions will be useful. 

The references to the SPRM will not be provided 
in subsequent editions of this dictionary, following 
this experimental limited edition. 

The DATE of the SPRM referenced is SEPT 1982. 
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CONTENTS 


Section 1. LISTS Of FUNCTIONS, TYPES, and VALUES 

DASL Operators 

DASL Reserved Words 

DASL External Function Macros 

System Call Macros (by include file) 

File Access Routine Macros (by include file) 

User Function Routine Macros (by include file) 
DASL Defined Flags and Values (by groups) 

Section 2. FUNCTION FORMAT DESCRIPTION 

and use of the 

" ADDRESS OF " OPERATOR 

Section 3. FUNCTION Macros ....VERBS 

Alphabetically, including.... 

SC, FAR and UFR Macros 

DASL Reserved Words (except data types) 

Section 4. VARIABLE TYPES ....NOUN Forms 

TYPDEF Defined TYPES 

Structure Initialization Macros 

The PCR externally defined variables 

Section 5. ALL WORDS and CROSS REFERENCE 

Combined in one alphabetical list. 

All CAPITALIZED words in this 
reference including: 

Error Code Message Definition 
Flag Bit Definitions 
Defined and System Constants 
Function names 
Variables and Structures 
Sub-Structure Fields 
DASL Keywords and Types 
Abbreviations in this reference 
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LISTS 


DASL OPERATOR SYMBOLS 

This list is a combined description, order of 
precedence, and implied grouping (left-to-right or 
right-to-left) when several operators of the same 
precedence appear at the same level. 

The groups are listed in order of precedence, 
highest first. Each group title will state the 
implied grouping. Operators in the same group have 
equal precedence. Precedence and grouping may both 
be modified with the use of parentheses. 

See the DASL Document for further description 
and requirements for variable and value TYPES. 

POST-UNARY (left-to-right): 

A Pointer, indirection, x CHAR:= 'A'; p A CHAR:= &x; 

p A := ‘B’; is equiv. to x := 'B'; 

[] Array Index 

Field Operator; see TYPE SFCBAIM Program Example 
() Function parameter and DEFINE argument indicator, 
or evaluation grouping, (overides operator 
precedence) 

++ Increment after evaluation 

— Decrement after evaluation 

PRE-UNARY (right—to-left); 

++ Increment before evaluation 

— Decrement before evaluation 
& "Address of" operator 

Negative of operand, arithmetic 
~~ One's complement of operand, arithmetic 
~ Unary not; inverts TRUE / FALSE 
SIZEOF See FUNCTION section: SIZEOF 
<type> Cast operator; change type for this evaluation 
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BINARY group 1 (left-to-right): 

* Multiply 
/ Divide 

% Modulo: (a£b), Remainder of a/b 

BINARY group 2 (left-to-right): 

+ Addition 
Subtraction 

BINARY group 3 (left-to-right): 

« Shift Left; var := bits « numberOfBits 
» Shift Right 

BINARY group 4 (left-to-right): 

&& Bit-wise "and" 

BINARY group 5 (left-to-right): 

|| Bit-wise "inclusive or" 

!! Bit-wise "exclusive or" 

BINARY group 6 (left-to-right): 

Used in flow of control 
= Equal 
'= Not Equal 
< Less Than 
> Greater Than 
<= Less Than or Equal 
>= Greater Than or Equal 

BINARY group 7 (left-to-right): 

& Logical "and"; expressions are true if 
not equal to zero. 

BINARY group 8 (left-to-right): 

I Logical "or" 

TERNARY (right-to-left): 

? : Conditional; a<b ? trueExpressn : fa 1seExpressn 
Similar to IF THEN ELSE, example; 
z := A <= 5 ? 5 

: A <= 10 ? 10 
: A <= 15 ? 15 
: 1; 
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BINARY group 9 (right—to-left): 

Assignment Operators 
:= a := b; a gets b 

*= a *= b; a gets a*b 

/= a /= b; a gets a/b 

%= a %= b; a gets a%b 

+= a += b; a gets a+b 

-= a -= b; a gets a-b 

«= a «= b; a gets a«b 

»= a »= b; a gets a»b 

&&= a &&= b; a gets a&&b 

||= a j |= b; a gets a | {b 

!!= a !!= b; a gets a!!b 


BINARY group 10 (left-to-riqht); 

, Separator; parameters, values in strings or 
initializers. 


SYMBOLS NOT SHOWN in DASL Document OPERATORS List: 


; Ends a statement. Note: DO NOT use following 
a macro call; like DEFINE (), INCLUDE () etc. 

: Label : Statement 

{} Statement grouping or initializer grouping 

Used by DASL Compiler MACRO "pre-processor" 

# PARAMETER NUMBER; see DEFINE in FUNCTIONS 

#[ #] EVALUATION SUPPRESSION; see DEFINE in FUNCTIONS 
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DASL WORDS AND FUNCTIONS 


LISTS of RMS FUNCTIONS and TYPES follow. 

DASL words are defined in the FUNCTION SECTION. 

Functions DASL RESERVED WORDS 

DASL 

DASL Compiler Defined 

CASE Transfer Control to Statement Label 

Equal to Argument 

DEFAULT Preceeds Statement in CASE for No-match 

Condition 

DEFINE Define a String to be Substituted for 
Identifier 

ELSE Part of IF THEN ELSE Execution Control 

ENTRY Declare Global Name; may be Ref Externally 

EXTERN Declare a Name Defined in Another Module 
FAST Future Code Generators; Var. Resides in 
Registers 

GOTO Transfer Control to Labled Statment in Same 
Function 

IF Execute THEN Statement if Expression is TRUE 

IFELSE If 1st 2 Strgs are Equal Resit is 3rd,Else 4 
INCLUDE Obtain Program Input Lines from Specified 
File 

INCR Produce a Value by Incrementing the Argument 
by 1 

LOOP Execute Substatements Until WHILE Exprsn = 0 
RECURSIVE Specifies Function may be Called Recursively 
RESULT Assign Resultant Value to a Function 
SIZEOF Operator Which Gives Size in Bytes of 
Argument 

STATIC Prevents Re-allocation of Variable in 
Recursive Function 

STRUCT Named Member Consistng of Several Named 
Membrs 

SUBSTR Select Part of String, Begin at Start for 
Length Specified 

SYSTEM Reserved for Future Code Generators 
THEN Part of IF THEN ELSE Execution Control 
TYPDEF Give Type a name that may be used as a Type 
UNION Named Member Contains Different Possible 
Members 

VAR Indicates Local Variable Definitions Follow 

WHILE Part of LOOP WHILE Execution Control 
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Functions DASL INCLUDE FILE DEFINED MACROS 

DASL 

DSINC Include File 

Basic DASL definitions. Standard Include 
ENUM Define Var Type BYTE; Define Values 0 thru 8 
ENUMV Define Values Incrementing from Initial 
Value 

SET Define Var Type BYTE and Define Powers of 2 

SETV Define Ascending Powers of 2 from Initial 
Value 

SETH Define Var Type UNSIGNED; Define Powers of 2 

DASL EXTERNALLY DEFINED FUNCTIONS 

in D$LIB/REL Library File 

DSINC Include File 

Basic DASL definitions. Standard Include 
DSCALL Call an Arbitrary Externally Defined 
Subroutine 

DSCOMP Block Compare Two Character Strings 
DSGET24 Numeric, Convert 24 Bit to 32 Bit Value 
DSINFO Return Processor Type 

DSMOVE Block Move 0 to 65535 Bytes 

DSHOVER Block Move Reverse, Starting at Ending 
Address 

DSPUT24 Numeric, Convert 32 Bit to 24 Bit Value 
DSSC Call a SYSTEM CALL External Function 
RASLENDS Turn off Traps in Program Running RASL 
RASLRESS Invoke the DASL Debugger 

DSRMS Include File 
Common Nucleus and UFR definitions 
DSJUMP Jump to an Arbitrary Externally Defined 
Subroutine 
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RMS FUNCTIONS 

Functions are grouped first by System Calls, 

File Access Routines, and User Function Routines, 
and then by INCLUDE FILE. 

Functions SYSTEM CALLS 

System Calls 

D$RMS Include File 
Common Nucleus and UFR definitions 
SCLOSE Close a File 

SERROR Abort a Program 

SEX IT Exit a Program 

SLOAD Load an Overlay 

DSRMSGEN Include File 
RMS General System Function Definitions 
$GETIME Obtain Current System Time 

SINFO Obtain System Configuration Information 

SSETIME Set The Current System Time 

SSETSQL Set Independent Task Security Level I* 

DSRMSIO Include File 

File Handling, Block I/O, Disk, Printer,Pipe 
SCLOSEAL Close All Open Files 

$DISCONT Disconnect from remote node I* 

SFILES Multi-Resource, Obtain Disk File 

Information 

$FORMAT Multi-Resource, Format a Unit on the Disk 

SGETSFI Obtain Symbolic File Identification 

SOPENENV Open a File with Specified ENV 

SPIPEGEN Create a Pipe Resource 

SPIPEUSE Check Local Pipe-in-use Status 

SRENENV Change a Disk File Name 

$REOPEN Reopen a File With New Passwords 

SSECCHK Check Operation Status 

SSECEOF Obtain or Set End Of File Location 

SSECR Block Read 

SSECRO Block Read Optimum 

SSECURE Multi-Resource, Change Disk File Security 

$SECW Block Write 

SSECh/AIT Wait for Operation Complete 

SSECWO Block Write Optimum 

tSTOPIO Stop All Data Movement 

SWAITIO Wait for any FAV Operation to Complete |* 

SUAITIOS Wait for selected status bit to change j* 
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Functions 
System Calls 


SBASESET 

SMEMCTL 

SMEMGET 

SMEMKEY 

SMEMMAP 

$MEMPROT 

SMEMREL 

SSETMAX 

SSETMIN 


SGLUTEN 

SRFIAKS 

SRFIDKS 

SRFIFK 

SRFIKKS 

SRFILKS 

SRUN 

SSETPRI 

SSIGNON 

STIMER 

STRAPAKS 

STRAPOKS 

STRAPFK 

STRAPKKS 

STRAPLKS 

STRAPSET 

STRAPUMV 

SUSRABN 


SDONATFV 

SLOCKFAV 

SRELFAVS 


DSRMSMEM Include File 
Memory Management Definitions 
Set the Memory Base Register 
Memory Control 

Obtain PSK for Available User Mem. Sector 

Obtain PSK of a Mapped Memory Sector 

Map a Memory Sector into Logical Space 

Change Memory Protection 

Release a Memory Sector 

Set Maximum Memory Requirement 

Set Minimum Memory Requirement 

DSRMSPROG Include File 
Program Loading and Execution Control 

Get Last User Task Error Number 

Return from Abort Key Seq Interrupt 

Return from STRAPDKS Interrupt 

Return from STRAPFK Interrupt 

Return from STRAPKKS Interupt 

Return fromSTRAPLKS Interupt 

Load and Run a Program 

Set User Task Priority Level 

Force User Signon 

Reset System Timer 

Trap ABORT Key Sequence 

Trap DISPLAY-CANCEL-DISPLAY Key Sequence 

Trap Function Key Strokes 

Trap KEYBOARD-CANCEL-KEYBOARD Key Sequence 

Trap LOG-OFF Key Sequence 

Trap Setting System Call, Used Indirectly 

Trap User Mode Violations, Used Indirectly 

User Abend Facility 

DSRMSSPEC Include File 
Special System Calls 

Donate a FAV to a Specified Task 
Lock / Unlock a Specified FAV 
Release All Locked FAVs 
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Functions 

System Calls 


SSINDEP 

SSLOCAL 

STASKCTL 

SUCSCHK 

$UCSDEL 

SUCSGEN 

SUCSSIG 

SUCSHAIT 


SBEEP 

SCLICK 

SCURSOFF 

$CURSON 

SUCONFIG 

men 

SUSGETCH 

SKISIO 

SUSTATUS 

SHSWAIT 


DSRMSTASK Include File 
User Multi-tasking 

Start an Independent Task 
Start Local Task 

Exert Control Over an Independent Task 
Check a User Created Semaphore 
Delete a User Created Semaphore 
Generate a User Created Semaphore 
Signal a User Created Semaphore 
Wait on a User Created Semaphore 

DSRMSUS Include File 

Workstation 

Make a Beep Sound 
Make a Click Sound 
Turn Off the Cursor 
Turn On the Cursor 
Get Configuration 

Control Code Function,Used Indirectly 
Obtain One Keyboard Buffer Character 
Perform Workstation I/O 
Get Status 

Enable Datastation Port and Wait for 
Character 
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Functions 

FAR 


FILE ACCESS ROUTINES 


DSFAR Include File 

File Access Routines, REQUIRES D$RMS 
SACLOSE Close an AIM File 

SADELCR AIM Delete Curr Rec Read by 
SAREAD,SAREADKG 

SAINS Insert Key in Index for Existing Data Reed 
SAIOCLR Comp Pend Writes,Force Buffer Fill on Read 
SAOPEN Initialize AIM File Access 

SAPOS Posit to Logical Rec Meeting Key List Spec 

SAREAD AIM Read Logical Rec Meeting Key List Spec 

SAREADCR Read after SAPOS or Re-read Cur after 
SAREAD 

SAREADKG Read Key Generic, Read Records with Same 
Key 

SARNRTCR Rewrite Cur Record after SAREAD, SAREADKG 
SAURITE Write Reed at EOF Data File,Insert Key in 
Index 

SDCLOSE Direct Access, Close 

SDDEL Direct Random Access, Delete 

SDDELCR Direct Seq Access, Delete Current 

SDGETCRK Direct Seq Access, Get Current Record Key 

SDGETNRK Direct Seq Access, Get Next Record Key 

SDIOCLR Direct Access, I/O Clear 

SDOPEN Direct Access, Open 

SDPOS Direct Random Access, Position 

SDPOSEOF Direct Random Access, Position to EOF 

SDPOSNX Direct Sequential Access, Position to Next 
SDPOSPV Direct Seq Access, Position to Previous 
SDREAD Direct Random Access, Read 

SDREADCR Direct Sequential Access, Read Current 

SDREADNX Direct Sequential Access, Read Next 

SDREADPV Direct Sequential Access, Read Previous 
SDRNRT Direct Random Access, Rewrite 

SDRURTCR Direct Sequential Access, Rewrite Current 

SONRITE Direct Random Access, Write 

SDMRITNX Direct Sequential Access, Write Next 

SDNRTEOF Direct Sequential Access, Write End of 

File 


...Continued 
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Functions 

FAR 


DfFAR Include File.... Continued 


SICLOSE 

SIDEL 

SIDELCR 

SIDELK 

SIINS 

SIIOCLR 

SIOPEN 

$IPOS 

tIPOSKP 

SIPOSKS 

SIPREP 

SIREAD 

SIREADCR 

SIREADKP 

SIREADKS 

SIRURT 

SIRURTCR 

S WRITE 


ISAM, Close 

ISAM Random, Delete 

ISAM Seq, Delete Current Record Key, Data 

ISAM Random, Delete Record's Key 

ISAM Random, Insert 

ISAM, I/O Clear 

ISAM, Open 

ISAM Random, Position 

ISAM Sequential, Position to Key Previous 

ISAM Position to Next Key Sequential 

Record 

ISAM, Prepare File 
ISAM Random, Read 
ISAM Sequential, Read Current 
ISAM Sequential, Read Key Previous 
ISAM Sequential, Read Key Sequential 
ISAM Random, Rewrite 
ISAM Sequential, Rewrite Current 
ISAM Random, Write 
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Functions 

UFR 


USER FUNCTION ROUTINES 


D$RMS Include File 
Common Nucleus and UFR definitions 
$ERMSG Display RMS Minimum Error Message 

SLBGTLSN Locate Library Member and Return LSN 
SMSGC Err-Msg, Locate a Message and Copy 
Into $MSG 

tOPEN Open a File; Search for ENV, which is not 
Specified 

SSCANFLS Cmdlnt, Scan File Specs According to Table 
fSCANOS Cmdlnt, Scan Options Specification 


$DECOHSI 

SENVDEL 

SENVFNDM 

SENVINS 

SENVLGET 

SENVLOC 

SENVPDAT 

$ENVPEEL 
SENVPHSI 
SENVPLOP 

SENVPNAM 

SENVPNET 

SENVPNOD 

SENVPPAS 

SENVPRES 

SSFILENAM 

UFILEPCN 

(SFILEPCU 

SGETPASS 

SNEWPCR 

spakpn 

SSCANHSI 

SUNPAKPW 


DSUFRENV Include File 
Environment Handling 
Requires DJRMSIO include if SSFILENAM 
function used 

Decompress an HSI String 
Delete Existing Environment 
Find Environment Data Match 
Insert New Environment 
Obtain Environment Entry Length 
Locate Existing Environment 
Position to Environment Data in an 
Env Entry 

Prepare Open of Environment's Catalog file 
Position to HSI Name in an Env Entry 
Position to UET Link In 
Open Parameter Table 
Position to Env Name in an Env Entry 
Position to Net Name in an Env Entry 
Position to Node Name in an Env Entry 
Position to First Password in Env Entry 
Position to Resource Name in Env Entry 
Obtain the Next File Name in Catalog 
Open Catalog File and Obtain PCNs 
Special Entry to $$FILEPCN 
Obtain, Compress Password from Keyin 
Create New PCR for Independent Task 
Pack ACSII String Into Password 
Compress HSI 

Unpack password into ASCII string 
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Functions 

UFR 

DSUFRERR Include File 
Error Handling 

SMSGCGET Locate and Deliver a Message 
SMSGCXO Open Command Library Message Members | 

SRMSMSG Return RMS message I 

SUERMSG Store User Error Message on Command | 

Stack | 

DSUFRGEN Include File 
General Utility 

SCVSTIME Obtain System Date and Time Info 

SDATETIM Convert System Time to Standard 

SDISORT Diminishing Increment 

In-Core Sort.Ascendng 

fFILEFMT Convert File Format Codes to 4-Byte ASCII 
String 

SGDATTIM Obtain Current ASCII Date/Time String 

SWIPEBT Clear an Area of Memory to SPACES 

SUIPEBTA Clear an Area of Memory to Constant Value 

DfUFRLIB Include File 
Library Manipulation 

$ LBADD Add a Member to a Library 

SLBDEL Delete a Member From a Library 

SLBFIND Locate Library Member 

SLBFREE Find the First Free Sector in a Library 

DSUFRMEH Include File 
Memory Management 

SMMFREMEM Deallocate a Block of Memory 

fMMGETCLR Allocate a Cleared Block of Memory 
SMMGETFST Allocate Free Space Block of Memory 
SMMGETMEM Allocate a Block of Memory 
SMMGETPAG Obtain a Page of Logical Memory Space 
tMMINIT Initial ize Memory Management 

SMMRETPAG Release a Page of Logical Memory Space 
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Functions 

UFR 


SNQDQBLD 

SNQDQCHK 

SNQDQENL 

SNQDQENQ 

SNQDQLGF 

SNQDQLGN 

SNQDQREL 

SNQDQRST 

tNQDQSTA 

SNQDQSTP 

SNQDQHAT 


SBIN0C24 

SBINOCT 

SCONDEC 

SC0N0C24 

SCONOCT 

$CVB 

$CVB24 

SCVB24L 

$CVD 

SCVD24 

SCVD24Z 

SCVDZ 

SDIVID3 

SFDPACK 

SFDUNPAK 

SMLTPLY3 

SSDIVID3 

SSMLPLY3 


SLOADREL 


DSUFRNQDQ Include File 
NQ/DQ UFR Definitions 

Build a Message Block 
Check Limited Request 
Request a Limited Enqueue 
Enqueue on a Resource 
Disconnect from the System 
Connect to the System 
Release a Resource 

Reset the Controller 4-byte Counters 
Acquire Controller Statistics 
Terminate an In-Progress Limited Enqueue 
Wait for a Limited Enqueue Request 

DSUFRNUM Include File 
Numeric Manipulation 

Convert 24-Bit Binary to ASCII Octal 
Convert 16-bit Binary to ASCII Octal 
Convert Decimal to Binary 
Convert ASCII Octal to 24-Bit Binary 
Convert ASCII Octal to 16-Bit Binary 
Convert ASCII Decimal to 16-Bit Binary 
Convert ASCII Decimal to 24-Bit Binary 
Convert ASCII Decimal to 24-Bit Binary 
Convert 16-Bit Binary to ASCII Decimal 
Convert 24-Bit Binary to Decimal 
SCVD24 with Zero-Suppression 
$CVD with Zero-Suppression 
Unsigned 24-bit Division 
Pack Two Decimal Numbers 
Unpack Character Into Two ASCII Digits 
Unsigned 24-bit Multiplication 
Signed 24-bit Division 
Signed 24-bit Multiplication 

DSUFRRLD Include File 
Relocating Loader 

Invoking the Relocating Loader 
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Functions 

UFR 

DSUFRSCAN Include File 
Command Interpreter (Scanning) 

SFSCAN Compress a SFILESPK 

SGENSMSK Generate Generic Scanning Masks 

$GENSTST Name Test-Under-Mask and Generate 

SSCANCFG Read and Scan User Configuration File 

SSCANFS Scan a File Specification 

SSCANNB Scan to Next Non-Blank 

SSCANSYM Scan a Symbol 

fSCANURD Scan Two Word Lists for Matches 

DfUFRSYS Include File 
System Interface 

SLOCKRIM RIM Lockout, Attempt to Open Pipe 
$MAP4K Allocate Memory For a PFDB 

tSMEMGET Obtain A Physical Memory Sector 

$$MEMREL Release a Physical Memory Sector 
SUNLKRIM Release RIM from Pipe ? (on hold) 
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Functions 

UFR 

DSUFRHFIO Include File 

Work File I/O 
STAPEREUIND Rewind Tape 
STAPEUNLOAD Rewind Tape and Unload 
STXBKSP Backspace a logical record 
STXCLOSE Terminate Processing for a Text-File 
STXDEL Delete a Logical Text Record 
STXOPEN Prepare an Opened Text-File for Access 
STXOPENP Open Using Specified Physical I/O 
Routine 

STXPOSEF Position to Text-File EOF 
STXPOSIT Position Text-File to File Pointer 
(TXPREP Prepare a New Text-File for Access 
STXPREPP Prepare w/ Specific Phys. I/O Routine 
STXREAD Read a Logical Text-File Record 

$TXUPDATE Update a Logical Text Record 
STXUEOF Write EOF at Current Text-File Position 
STXURITB Write Text-File Record of Specified 
Length 

fTXWRITE Write a Logical Text-File Record 

SVGETBUF Obtain Buffer Group from Virtual Pool 
SVINIT Initialize Virtual I/O Management 

SVMAPPSK Donate a PSK to Virtual Management 

$VPUTBUF Return a Buffer Group to Virtual Pool 

$VSETWIN Establish Memory Window Areas, Virtual 

SUFCLOSE Terminate Processing of Work File 

j WFFLUSH Dump Pending Write Buffers to Disk 

SUFOPEN Prepare an Open Work File For Access 

SWFOPENP Open Using Specified Physical I/O 

Routine 

SVFPOSEF Position to File's EOF 

SWFPOSIT Position to File Pointer 

SUFPREP Prepare a New Work File For Access 

SIXFPREPP Prepare Using Specified Physical I/O 

Routine 

SUFREAD Read a Logical Record 

SUFREADL Read in LOCATE Mode 

SWFUPDATE Update a Logical Record 

tlf/FUPDATEL Update a Record in LOCATE Mode 
SVFIXEOF Write EOF At Current File Position 
SUFURITE Write a Logical Record 
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fWFWRITEL Write a Record in LOCATE Mode 

Functions 

UFR 

DtUFRWS Include File 
Workstation Interface 

SCHAININ Determine if CHAINing is Active 
$$CLOSEAL Interface to SCLOSEAL System Call 
SCSCPUSH Push Command Lines Below Current Pointer 
SCSPOP Pop The Command Stack 

SCSPUSH Push a Command Line Onto Command Stk 
SCSPUSHN Push Command Lines Onto Command Stack 
SDISPCH Display One Character 

SDLMCHEK Check Character For a Delimiter 

SGETCHN Get Response from CHAIN File / WS 

SGETCHTO Timeout for GETCSTKS and GETCHNS 

SGETCSTK Get Response from Command Stack / WS 
SGETCSTO Timeout for GETCSTKS and GETCHNS 

SGETLINE Get Response from Stack, CHAIN, or WS 
SGETLNTO Timeout Controlled Version of GETLINE 
SKEYCHAR Obtain One Translated Character 

SKEYCLR Clear the Keyin FIFO 

SKEYIN Accept a String From Keyboard to Memory 
SKEYINTO Timeout Controlled Version of KEYIN$ 
SLOGCLR Clear Logging Flags 

SLOGGING Determine if Logging is Active 

$LOGSET Set Logging Flags 

SPUTELGX Log Message 

SPUTELOG Home-Down Roll, Log Error Message 

(PUTERP Home-Down Roll, Log/Display $MSG, Error 

SPUTERPX Log/Display from $MSG, Error 

SPUTERRR Home-Down Roll, Log/Display, Error 

SPUTERRX Log/Display Message, Error 

SPUTLINE Home-Down Roll, Display Message 

SPUTLINX Display Message 

SPUTLNP Home-Down Roll, Display from $MSG 

SPUTLNPX Display from $MSG 

SPUTLOG Home-Down Roll, Log Message 

SPUTLOGX Log Message 

SPUTNOP Home-Down Roll, Log/Display from $MSG 

SPUTNOPX Log/Display from $MSG 

SPUTNOTE Home-Down Roll, Log/Display Message 
tPUTNOTX Log/Display Message 

$$RUN Interface to $RUN System Call 

SSETABTF Set CHAIN Abort Flag 
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Functions 

XREF 


BIGBCPS 

BIGBTS 

MFREMEMS 

MGETCLRS 

MGETFSTS 

MGETMEMS 

MGETPAGS 

MMGINITS 

MRETPAGS 

HFUPDATS 

MFUPDTLS 

UFWRITLS 


CROSS REFERENCED FUNCTIONS 


Function names from Assembly Language RMS 
that have different names in DASL RMS. 

Compare Large Strings; Assem Language UFR 

Move 16-bit Length; Assembly Language UFR 

Deallocate a Block of Memory 

Allocate a Cleared Block of Memory 

Allocate Free Space Block of Memory 

Allocate a Block of Memory 

Obtain a Page of Logical Memory Space 

Initialize Memory Management 

Release a Page of Logical Memory Space 

Update a Logical Record 

Update a Record in LOCATE Mode 

Write a Record in LOCATE Mode 
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TYPES 

Types TYPES and STRUCTURES 

.means used by a FUNCTION as 

parameter type 

DASL COMPILER DEFINED TYPES 

scalar data type: 1 byte unsigned 
scalar data type: 1 byte unsigned 
scalar data type: 1 byte unsigned 
scalar data type: 2 bytes signed 
scalar data type: 4 bytes signed 
scalar data type: 2 bytes unsigned 
variable type: 13 parameters 1 result 

DSFAR Include File 
File Access Routines, REQUIRES D$RMS 

$ACB Aim Control Block 

$DCB Data File Control Block 

* SFCBA File Control Block for AIM File 

SFCBAIM Macro to Configure AIM File Control Blk 

SFCBAIMI Initializer Macro Used by SFCBAIM 

* SFCBD File Control Block for Direct File 

SFCBDIR Macro to Configure Direct FCB 

SFCBDIRPRT Macro used by Macros: SFCBPRT, SFCBDIR, 

$ 

SFCBDIRPRTI Initializer Macro used by SFCBDIRPRT 
SFCBDOVR Macro to Configure 

Direct-Overlapped I/O FCB 

* $FCBIS File Control Block for ISAM File 

SFCBISAM Macro to Configure ISAM FCB 

SFCBISAMI Initializer Macro used by SFCBI SAM 

SFCBPRT Macro to Configure Print FCB 

SICB ISAM Control Block 

SMAB Managed File Access Block 

SSCFMSCODES FAR Exception Exit Codes 

DSINC Include File 

Basic DASL definitions. Standard Include 

* DSCALLF Declare Name to be a Callable I* 

Function Type Routine j* 

DSCCODE Condition Code Flags 

ILONG 24 Bit Number Structure, Integer 

* ULONG 24 Bit Number Structure, Unsigned |* 


BOOLEAN 

BYTE 

CHAR 

INT 

LONG 

UNSIGNED 

FUNCTION 
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Types 

* .means used by a FUNCTION as 

parameter type 

DSPCR Include File 

Program Communications Region Definitions 

PCR Program Control Region 

(externally defined) 

DSRMS Include File 
Common Nucleus and UFR definitions 

* SENVN Environment Name 

SERRCODE RMS Standard Error Code I* 

$EXTT File Extension 

* SFILEPTR File Pointer Structure 

* SFILESPK SSCANFLS File Specification 

$HSI Hierarchical Structure Information 

Array 

* SLNAMET Library Member Name 

$LSN Logical Sector Number 

SNAMEEXT Name, and Extension 

* SNAMEEXTENV Name, Extension, and Environment 

* SNAMET File Name Type 

* SOPEHPT Open Parameter Table 

SOPTION SSCANFLS Option Specification I* 

SOPTTAIL SSCANOS Option List Terminator 

* SPACKPW Packed Password 

* $PFDB Physical File Descriptor Block 

fPFDBBUF PFDB Buffer List Entry 

* SSFENT Symbolic File Table 

$SFNT Symbolic File Name 

$SONT Symbolic Option Field Name 

* SSTARTADR Starting Address Type 

* $TIME Time in Seconds Since Beginning of 1901 

DSRMSGEN Include File 
RMS General System Function Definitions 
SDSTINFO Daylight Savings Time Start/Stop Table 

* SINFOITEM Info Returned by SINFO 

$IRUFLAGS Resource Utilization Flags 

SNODEFLAGS Node Flags in SINFO 

SRSRCFLAGS SINFO Resource Status Flags |* 

* SSETTIMEP SSETIME Parameter Table 

* SSYSTIME System Time 

* tSYSTINFO System Time Information I* 
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means used by a FUNCTION as 
parameter type 


SACCODES 

* SFILEINFO 
SFILEKEY 
$FILEKEYS 

* SFILESTBL 

* fOPENPTS 

* SPIPEGENPT 

* SSECSTAT 

* SSECURETBL 
SSFITABLE 


* SINTS 


SABSHDR 

SUBENTRY 

SUBSECTOR 

SUBTYPE 

SPABENTRY 

SPABFLAGS 

SRELCOOE 

SRELEPN 

SRELEPNS 

SRELUNE 

SRELLNENT 

SRELOBJ 

SRELPID 

SRELXDEF 

SRELXDENT 

SRELXFER 

S RE LX REF 

SRELXRENT 

SUABSECTOR 


DSRMSIO Include File 
File Handling, Block I/O, Disk, 

Printer,Pipe 

File Access Codes 

Returned by $FILENAM Mode of $FILES 
File Key Structure 
File Key List Array 
Redefined $PFDB,Multi-File Sys Calls 
Special SOPENENV |* 

( SOMCHECK, SOMREPAR Modes) 

Pipe Generation Parameter Table 
Block I/O Status Control 
$SECURE Parameter Table 
SGETSFI Information 

DSRMSPROG Include File 
Program Loading and Execution Control 

Interupt State Table 

DSRMSSTRUCT Include File 
Disk Structure Definitions 

Library Absolute Element Header Sector 
Library Directory Entry 
Library Sector Formats 
Library Directory Entry Types 
Relocatable Program ID Sector PAB Entry 
Relocatable Program ID Sector PAB Flags 
Relocatable Sector Type Codes 
Reclocatable Entry Point Member Entry 
Relocatable Entry Point Member Sector 
Relocatable DEBUG Line Numbers Sector 
Relocatable DEBUG Line Number Entry 
Relocatable Object Code Sector 
Relocatable Program ID Sector 
Relocatable External Definition Sector 
Relocatable External Definition Entry 
Relocatable Starting Address Sector 
Relocatable External Reference Entry 
Relocatable External Reference Entry 
User Abend Header Sector Format 
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Types 

* 


* SUSCONF 
SWSC0NF2 
SWSCONFDS 

* SWSIOMODE 

* SUSTAT 


* SENVT 

* SUNPACKPH 


* $CVSTBL 

* SDISTBL 

FFMTABLS 


* $MEMBER 


SNQDQITEH 

* SNQDQMSG 

* $NQDQSTAT 


SRLDEF 

SRLFLAGS 

* $RLNAME 

* SRLPARAM 
$RLREF 
$RLUDRTNF 
SRLUMEMAF 


.means used by a FUNCTION as 

parameter type 

DSRMSUS Include File 
Workstation 

SWCONFIG Status Bits 
$WC0NFIG 3rd Status Byte Flags 
SWCONFIG 4 Byte Status Structure 
SWSIO Mode Bits 
SWSTATUS Status Bits 

DSUFRENV Include File 
Environment Handling 
Requires DSRMSIO include if $$FILENAM 
function used 

User Environment Table Entry 
Unpacked Password 

DSUFRGEN Include File 
General Utility 

SCVSTIME Output Area 
$DI SORT Parameter Table 
File Format Table 

DSUFRLIB Include File 
Library Manipulation 

Library Member Structure 

DSUFRNQDQ Include File 
NQ/DQ UFR Definitions 

NQDQ List Item 
NQDQ Message 
NQDQ Statistics 

DSUFRRLD Include File 
Relocating Loader 

Relocatable Loader Definition Structure 
Relocatable Loader Flags 
Relocatable Loader Name Type 
Relocatable Loader Parameters 
Relocatable Loader Reference Work Area 
Relocatable Loader User Routine Types 
Relocatable Loader User Routine Types 
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7>pes 

* .means used by a FUNCTION as 

parameter type 

DSUFRSCAN Include File 
Command Interpreter (Scanning) 

SCFGEND $SCANCFG Keyword List Terminator 

* SCFGHDR $SCANCFG Configuration Header 

fCFGKEY $SCANCFG Keyword Parameters 

DSUFRUFIO Include File 
Work File I/O 

* $UFCB Work File I/O Control Block 

SUFCBFLAG Work File I/O Flags 

SMFCBFLAG2 Second Control Flag Byte Type 

SMFIOPRTN Physical I/O Function Routine Type 
$UFIOTABPRTN Pointers to Phys I/O Routines 
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DASL DEFINED FLAGS AND VALUES 


It has been suggested that having the values 
(essentially ADJECTIVES, which give meaning to the 
variables, NOUNS) listed in one place may serve several 
purposes. Knowing the values that the RMS system variables 
use may give a perspective of scope to the overall 
system range and extent. 

All words listed here will be listed in the WORDS section 
which should always be refered to for more definition. The 
WORDS section should also be considered most current, in that 
this section is a compilation from that and other sources. 

Many of these groups will be listed in the description 
of the TYPES and FUNCTIONS using them. 

MISCELLANEOUS 


INCLUDE FILE.: D$INC 

MAXINT 077777 

MAXUNSIGNED 0177777 


DEFINEM 
DEFINEM 


I* 

I* 

I* 


MAXLONG 

017777777777 DEFINE'd 


1* 

NIL 

0 

DEFINE'd 


i* 

FALSE 

000 

Boolean value: 'false' 


i* 

TRUE 

001 

Boolean value: 'true' 


i* 

FILE..... 

.: D$PCR 


1* 

$N0 

0116 

'N' 


1* 

$YES 

0131 

' Y' 


i* 

i * 

FILE. 

.: D$RMS 


1 

i* 

$N0ADR 

0177777 Indicate "NO ADDRESS GIVEN” 

i* 


USED 

IN: $FILESPK 


1* 

$N0PSK 

0377 

DEFINE'd Indicate "No PSK 

given” 

i* 


USED 

IN: $PFDBUF.PSK 


i* 

$ENVTERM 

0377 

Environment data string terminator 

1* 


USED 

IN: $0PENPT.$0TENV 


i* 



$PIPEGENPT.$PIPETERM 


i* 

$MAXNPW 

20 

Max # of passwords in an < 

»nv 

1* 

$MSGLGT 

81 

Length of $MSG buffer 


1* 

FILE. 

.: D$RMSI0 


1* 

$FDTKEYN 

9 

Number of keys 


1* 


USED 

IN: $FILEKEYS 


1* 

$FINDN0D 

077 

'?'find the node with the 

given 

1* 



resource 


1* 

$F0REVER 

0377 



1* 


USED 

IN: $PFDB.$PTIMER 


1* 



(Pipe and Rim) 


1* 
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$AC, 


access codes $ACCODES 


INCLUDE FILE.: D$RMSIO 

USED IN FUNCTIONS.: $OPENENV 

USED IN TYPE (.FIELDS!: $ACB.$ACBA, $ACCODES, $DCB.$DCBACC, 
$FILEKEY.$FDTACCO, $ICB.$ICBACC, 
$0PENPT.$OTCODE, $PIPEGENPT.$PIPEIAC, 
$SECURETBL.$SSFIAC 


$ACCODES 

$NEWFILE 

$ACREAD 

$ACWRIT 

$ACATALG 

$ACREATE 

$ACRENM 

$ACKILL 

$ACSECQ 

$ACREPX 

$ACMAX 

$ACMAX 


SET ( $NEWFILE, $ACRE AD, $ACWR IT, $ AC AT A LG, 
$ACREATE,$ACRENM,$ACKILL,$ACSECQ); 

0001 New file 

0002 Read data 

0004 Write data and deallocate space 

0010 Obtain catalog information 

0020 Create files under this catalog 

0040 Rename the file 

0100 Delete the file 

0200 Change security info 

0200 Exclusive access,disk $0MREPAR only 

0376 Sum of the $ACC0DES 

DEFINE($ACMAX,($ACSECQ+$ACKILL+$ACRENM 

+$ACREATE+$ACATALG+$ACWRIT+$ACREAD)) 


A$ 


AIM flags 


INCLUDE FILE. . . ..: D$FAR 

USED IN FUNCTIONS.: none 

USED IN TYPE [.FIELDS]: $FCBA.$FCBFLG2 


A$AB0RT 0001 AIMDEX Aborted (Invalid Index) 
A$PMISS 0020 Primary record key must mis-match 
A$PRISEL 0040 Primary select active 
A$UPC.ASE 0100 Force upper case 
A$SHARE 0200 Shared AIM index 


$BFT... 


used for / by Buffer Allocation Routines (FAR) 


INCLUDE FILE. 

USED IN FUNCTIONS. 

USED IN TYPE (.FIELDS) 

$BFTINDX 0001 
$BFTDATA 0002 
$BFT0THR 0003 


D$FAR 

none 

none 

ISAM index buffer type 
Data file buffer type 
Other buffer type 
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$SCANCFG control flags 


INCLUDE FILE.: D$UFRSCAN 

USED IN FUNCTIONS.: none 

USED IN TYPE (.FIELDS]: $CFGKEY.$CFGFLAG 

$CFGNOVM 0017 (4 hits) Number of values moved 
$CFGL0NG 0020 Value too large 

$CFGGTN 0040 Too many values 

$CFGVPT 0100 Value type error 

$CFGFND 0200 Keyword found 



$CIL... 


logoff message numbers 


INCLUDE FILE.: D$RMSPR0G 

USED IN FUNCTIONS.: none 

USED IN TYPE (.FIELDS]: none 


$CIL0G0 0000 Error in SIGN0N 

$CTL0C1 0001 Can not be loaded 

$CIL0G2 0002 Command Interpreter can not be loaded 

$CIL0G3 0003 Error in Command Interpreter 

$CIL0G4 0004 Not enough memory for SIGN0N 

$CIL0G5 0005 SIGN0N aborted 

$CIL0G6 0006 LOGOFF key sequence 

$CIL0G7 0007 LOGOFF forced from program 

$CILOG8 0010 ** UNUSED ** 

$CIL0G9 0011 Error in LOGOFF program 


$CIS... 


Cl status codes 


INCLUDE FILE.: D$RMSPR0G 

USED IN FUNCTIONS.: $RUN, $SINDEP 

USED IN TYPE (.FIELDS): none 


$CISN0RM 0000 
$CISERRR 0001 
$CISABT 0002 
$CISUMV 0003 
$CISWSER 0004 
$CISVABT 0005 
$CISFMT 0006 
$CISREAD 0007 
$CISMEM 0010 
$CISADR 0011 
$CISACC 0012 
$CISDUAL 0013 
$CISHAR 0014 
$CISYSTB 0015 


T NORMAL’ system call exit 
’ERROR’ system call exit 
'ABORT' key sequence exit 
User mode violation exit 
Workstation error exit 
VANTAGE 'Abort' Key Sequence Exit 
Format error in progrm.to execute 
Read 1/0 err in prgrm to execute 
Not enough mem for prgm execute 
Insufficient logical address space 
Memory access violation during LOAD 
Dual Sector Tables not supported 
Shared program mis-match 
Insufficient System Table space 
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controller kinds 


INCLUDE FILE.: D$RMSGEN 

USED IN FUNCTIONS.: none 

USED IN TYPE (.FIELDS 1: $INFOITEM.$ICKIND 

$CK9350 0000 9350 Cartridge disk 

$CK9370 0001 9370 25 MB Mass stg disk 

$CK9374 0002 9374 10 MB Mass stg disk 

$CK9390 0003 9390 67 MB Mass stg disk 

$CK88D1 0004 8800 SMD/MMD disk IMOD 

$CK88MEM 0005 8800 memory bank 

$CK9301 0006 9301 20 MB Whizzie 

$CK9310 0007 9310 10 MB Cynthia 

$CK1403 0010 1403 Tortilla flex disk 

$CK9315 0011 9315 10 MB Cyclone 

$CK9324 0012 Moses Controller 



$CM 


close modes 


INCLUDE FILE. 

USED IN FUNCTIONS. 

USED IN TYPE [.FIELDS] 


D$RMS 

$ACL0SE, $CLOSE, $DCLOSE, $ICL0SE 
none 


$CMUNCH 000 No change in file size 
$CMSIZE 001 Deallocate to specified LSN 

$CMCH0P 002 Deallocate to EOF LSN 


$DE1_ 


Delimiters 


INCLUDE FILE.: D$UFRSCAN 

USED IN FUNCTIONS.: none 

USED IN TYPE [.FIELDS]: Command lines, etc. 


$DELMSYM 

075 

’ = 

$DELMEXT 

057 

7 

$DELMENV 

072 


$DELMHSI 

056 

» 

$DELMQRY 

077 

1 ? 

$DELM0RE 

053 

’+ 

$DELMN0T 

055 

? _ 

$DELM0PQ 

042 

»»» 

$DELM0PT 

073 

* 

$DELMST1 

054 



Symbolic field name precedes and 

File extension follows 

Environment name follows 

HSI level delimiter 

Query mark 

More mark 

Not mark 

Option quoted value delimiter 
Command line options delimiter 
Valid specification terminator 
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$DK 


resource kinds 


INCLUDE FILE.: D$RMS 

USED IN FUNCTIONS.: none 

USED IN TYPE [.FIELDS!: $INFOITEM.$IROKIND $OPENPT.$OTKIND 


$DRWS 000 Work station (pseudo res) 

$DKDISK 001 Disk 

$DKPIPE 002 Pipe (soft resource) 

$DKPRINT 003 Printer 

$DKCASS 004 Cassette tape 

$DKMAGT 005 Industry compatible mag tape 

$DKC0MM 006 Communications channel 

$DKTIMER 007 Delay timer elk,soft res 

$DKCARDR 010 Card reader 

$DKCARDP Oil Card punch 

$DKPTR 012 Paper tape reader 

$DKPTP 013 Paper tape punch 

$DK883M 014 8800 3M Cartridge tape 

$DK863M 015 8600 3M Cartridge tape 

$DKSMPLR 016 Task execution time sampler 

$DKRIM 017 Direct RIM access 

$DKFAX 020 FAX Equipment 

$DKMAX 020 Largest resource kind number 


$EOF.... 


$SECE0F modes 


INCLUDE FILE.: D$RMSI0 

USED IN FUNCTIONS.: $SECE0F 

USED IN TYPE (.FIELDS): none 


$EOFGET 000 Get the current EOF LSN 

$E0FSET 001 Set the current EOF LSN 

$EOFWRIT 002 Write to EOF immediately 
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$FCS 


INCLUDE FILE.: D$FAR 

USED IN FUNCTIONS.: none 

USED IN TYPE l.FIELDS): $FCBA.$FCBFLGl, $FCBD.$FCBFLG1, 
$FCBIS.$FCBFLGl, $FCBIS.$FCBFLG2 


$FCSIDUP 0001 
$FCSOVER 0001 
$FCSCMPR 0002 
$FCSBIN 0004 
$FCSOPEN 0010 
$FCSMNGD 0020 
$FCSTICB 0040 
$FCSTDCB 0100 
$FCSTSIB 0140 
$FCSTPRT 0200 
$FCSTPRU 0240 
$FCSTACB 0300 
$FCSTSAB 0340 
$FCSTMSK 0340 


Indicates duplicate keys are allowed 

Overlapped I/O 

Compressed records 

Opened file is binary 

This file is open 

This file is managed at an FMT 

Primary ISAM FCB 

DFCB (direct or byte) 

Secondary ISAM FCB 
Printer FCB - DISK res 
Printer FCB - PRINT res 
Primary AIM FCB 
Secondary AIM FCB 
FCB type mask 
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$FFMT 


file formats 


INCLUDE FILE. 


D$RMS 

USED 

IN FUNCTIONS 


$FILEFMT 

USED 

IN TYPE (.FIELDS]: 

FFMTABL$.$FFTC0DE, $FILEINFO.$FILEMT, 




$0PENPT.$0TFMT, $SECURETBL.$SSFFMT 


$FFMTSYS 

0000 

System File 


$FFMTTMP 

0001 

Temporary File (Must be a 1) 


$FFMTTXT 

0002 

Text (Logical Records) 


$FFMTISM 

0003 

Isam Index 


$FFMTL55 

0004 

Loadable 5500 REL/ABS Object Library 


$FFMTRAC 

0005 

Non-Loadable REL/ABS Object Library 


$FFMTDBC 

0006 

Databus Object Code 


$FFMTBAS 

0007 

Basic Object Code 


$FFMTMAC 

0010 

Macro Library 


$FFMTWPS 

0011 

Word Processing Library 


$FFMTJOB 

0012 

CHAIN Job File 


$FFMTBIN 

0013 

Binary Data 


$FFMTUTX 

0014 

Uncompressed Text Data 


$FFMTMFD 

0015 

Managed File Descriptor 


$FFMTUPF 

0016 

Universal Print Format 


$FFMTWPF 

0017 

Word Processing Format 


$FFMTAIM 

0020 

AIM format 


$FFMTXFD 

0021 

Extended file (multi-volume file) 


$FFMTL66 

0024 

Loadable 6600/8x00 product 


$FFMTL80 

0025 

Loadable 8600/8800 product 


$FFMTRPM 

0040 

Min val, released product types 


$FFMTR55 

0040 

Released 5500/3800 product 


$FFMTR66 

0041 

Released 6600/8x00 product 


$FFMTR80 

0042 

Released 8600/8800 product 


$FFMTPTR 

0050 

File-Pointer File 


$FIL... 


File specification qualifying options 


INCLUDE FILE.: D$RMS 

USED IN FUNCTIONS.: none 

USED IN TYPE (.FIELDS): $FILESPK.$FSOOPT 


$FILNAMR 0001 
$FILEXTR 0002 
$FILENVR 0004 
$FILANYR 0010 
$FILFDEF 0020 
$FILQM0K 0040 
$FILNDSP 0100 


Name required 

Extension r quired 

Environment required 

Some field entry is required 

The field is defined 

Query, More, or Not marks allowed 

Inhibit display if undefined 


1 * 

I* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i * 
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$FILE... 


$FXLES modes 


INCLUDE FILE.: D$RMSIO 

USED IN FUNCTIONS.: $FILES 

USED IN TYPE [.FIELDS]: none 

$FILEPCN 00 $FILES mode: Get file FDT-PCN's 

$FILENAM 01 $FILES mode:Get file names from 
FDT-PCN’s 

$FILEGET 02 $FILES mode: Get file name from FAV 

$FILECHK 03 $FILES mode: Cheek for file opened 

$FILEDAT 04 Get FDT data for specific FAV 



Workstation Graphics Characters 


INCLUDE FILE. 


D$W0RKSTN 

i* 

USED 

IN FUNCTIONS. 


$WSI0 

1* 

USED 

IN TYPE [.FIELDS]: 

none 

i* 


$gCurs 

0000 

Cursor: | 

1* 


$gVCurs 

0001 

Vantage cursor: [] 

1* 


$gTLCorn 

0002 

Top left corner: p 

1* 


$gTRCorn 

0003 

Top right corner: ^ 

i* 


$gBLCorn 

0004 

Bottom left corner: L 

i* 


$gBRCorn 

0005 

Bottom right corner: J 

1* 


$gVBar 

0006 

Vertical bar: | 

1* 


$gHBar 

0007 

Horizontal bar: - 

i* 


$gTTBar 

0010 

Top T-bar: T 

i* 


$gBTBar 

0011 

Bottom T-bar: ^ 

i* 


$gLTBar 

0012 

Left T-bar: |- 

1* 


$gRTBar 

0013 

Right T-bar: -| 

i* 


$gCross 

0014 

Cross: | 

i* 


SgCursU 

0015 

Cursor Up: f 

i* 


SgCursD 

0016 

Cursor Down: £ 

i* 


$gCursL 

0017 

Cursor Left: ♦ 

i* 


$gCursR 

0020 

Cursor Right: ♦ 

i* 


SgEnter 

0021 

Enter: k* 

i* 


$gCommand 

0022 

Command: □ 

i* 


SgVTLCorn 

0023 

Vantage top left corner: f 

i* 


$gVTRCorn 

0024 

Vantage top right corner: ^ 

i* 


$gVBLCorn 

0025 

Vantage bottom left corner: L 

i* 


$gVBRCorn 

0026 

Vantage bottom right corner: J? 

i* 


$gVTBar 

0027 

Vantage top bar: z 

i* 


$gVBBar 

0030 

Vantage bottom bar: _ 

i* 


$gVLBar 

0031 

Vantage left bar: | 

i* 


$gVRBar 

0032 

Vantage right bar: | 

i* 


$gUserMeta 0177 

User data ineta character: ■ 

i* 
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$INFO modes 


INCLUDE FILE.: D$RMSCEN 

USED IN FUNCTIONS.: $INFO 

USED IN TYPE (.FIELDS!: none 


$IRMFND 004 Find named multi file resource 

$IRMFAL 005 Return all multi file resources 

$IRSFND 006 Find named single file resource 

$IRSFAL 007 Return all single file resources 

$ITASKND 010 Find named task 

$ITASKAL 011 Return all tasks 

$IN0DEND 012 Find named available node 

$IN0DEAL 013 Return all available nodes 

$ILINKND 014 Find named connection link 

$ILINKAL 015 Return all connection links 

$ITASKME 016 Return caller's task info 

$IMYN0DE 017 Return name of local node 

$IDLMTAB 020 Return delimiter table 

$ISTARTT 021 Return system startup time 

$IC0NTV 022 Return all controller variables 
$IRUDATA 023 Return resource utilization data 

$ISPVND 024 Return named shared program variable 

$ISPVAL 025 Return all shared program variable 


$INF... 


Node Flags $N0DEFLAGS 


INCLUDE FILE.: D$RMSGEN 

USED IN FUNCTIONS.: none 

USED IN TYPE [.FIELDS]: $INF0ITEM.$ILFLAGS, $INF0ITEM.$INFLAGS 


$INF0FF 001 Offline: ANV disconnect; CLV hard error 
$INFTXER 002 Transmitter blocked by error 
$INFC0NG 004 ANV in process of connection 
$INFCFU 010 Checking file in use 
$INFIFS 020 Incoming file support configured 

$INFFMA 040 FAV Markers Available 
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$IRF... 


Resource status flags: $RSRCFLAGS 


INCLUDE 

FILE. 


D$RMSGEN 

i* 

USED IN 

FUNCTIONS 


none 

1* 

USED IN 

TYPE [.FIELDS]: 

$INFOITEM.$IROFLAG 

1* 

1 * 


$IRFOFF 

0001 

Resource off-line 

1 

1* 


$IRFOCP 

0002 

Resource occupied 

1* 


$IRFWRP 

0004 

Resource write protected 

1* 


$IRFCHK 

0010 

SYSCHECK in progress 

i* 


$IRFSTP 

0020 

Disk System Table problems 

1* 


$IRFSPC 

0040 

Special Open Mode - Open if off-line 

i* 


$IRF6 

0100 

** UNDEFINED ** 

1* 


$IRFBSD 

0200 

Resource is byte string device 

i* 

$IRU. 

Resource 

utilization flags: $IRUFTiAGS 


INCLUDE 

FILE. 


D$RMSGEN 

i* 

USED IN 

FUNCTIONS 


none 

1* 

USED IN 

TYPE [.FIELDS]: 

$INF0ITEM.$IRUFLAG 

1* 


$IRUx 

0001 

**UNUSED** 

1* 


$IRUIFH 

0002 

Incoming filehandler in use 

1 * 


$IRUOFH 

0004 

Outgoing filehandler in use 

1* 


$IRUIFA 

0010 

Incomming file access supported 

1* 

$ISP. 

■■ Shared program status 


INCLUDE 

FILE. 


D$RMSGEN 

1 * 

USED IN 

FUNCTIONS 


none 

1* 

USED IN 

TYPE [.FIELDS]: 

$INF0ITEM.$ISPSTAT 

1* 
t * 


$ISPLOCK 

0200 

Shared program locked into memory 

1 

1* 


$ISPMEM 

0037 

Shared program PSK count 

1* 

$L... 

Logical 

codes in file 



INCLUDE 

FILE.. 

...: D$RMSI0 

1* 

USED 

IN 

FUNCTIONS.: none 

i* 

USED 

IN 

TYPE [ 

.FIELDS]: none 

1* 
i * 



$LMCV 

0371 

Minimum control character value 

1 

i* 



$LSPC 

0371 

Space compression count follows 

1 * 



$LE0R 

0372 

End of record mark 

1* 



$LE0F 

0373 

End of file mark 

1* 



$LST 

0374 

Special text mark 

1* 



$LE0B 

0375 

End of block mark 

1* 



$LXX 

0376 


1* 



$LDEL 

0377 

Deleted data mark 

1* 
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$LOCKFAV modes 


INCLUDE FILE.: D$RMSSPEC 

USED IN FUNCTIONS.: $LOCKFAV 

USED IN TYPE [.FIELDS 1: none 

$LFLOKSP 000 Lock specified FAV 

$LFULOKS 001 Unlock specified FAV 




library member types 


INCLUDE 
USED IN 
USED IN 


USED IN 


FILE. 


D$RMSSTRUCT 

FUNCTIONS 


$LBGTLSN 

TYPE [.FIELDS]: 

$LIBENTRY.$LIBMTYP, $MEMBER.$LIBMTYP 

$LIBFREE 

000 

Free entry 

$LIBTERM 

001 

End of library 

$LIBLINK 

002 

Link to nxt drctry sctor 

$LIBABSX 

003 

"ABS" format executable 

$LIBABSO 

004 

M ABS" format overlay 

$LIBRELL 

$LIBT006 

005 

"REL" format 

$LIBEPN 

$LIBT008 

$LIBT009 

$LIBT010 

$LIBT011 

007 

Entry point names 

$LIBDLL 

014 

ARC down-line load format 

TYPE [.FIELDS]: 

$ABSHDR.$LIBMAP 

$LIBMT 

000 

Memory sector empty (not used) 

$LIBPRIV 

001 

Memory sector private 

$LIBSHAR 

002 

Memory sector shared 

$LIBTBAD 

003 

Illegal mem sector type 

$LIBMXPG 

57 

$LIBPG1 Array Size, maximum nbr of 
page groups 
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$MC 


memory control function 


INCLUDE FILE.: D$RMSMEM 

USED IN FUNCTIONS.....: $MEMCTL 
USED IN TYPE (.FIELDS]: none 

$MCMDON 0 Activate memory diagnostic task 
$MCMDOFF 1 De-activate memory diagnostic task 
$MCMDTST 2 Perform memory diagnostic 
$MCDSON 3 Switch user task to dual sector mode 
$MCDSOFF 4 Switch user task to single sector mode 
$MCDSTST 5 Test sector table mode 

$MPROT... $MEMPROT modes 


INCLUDE FILE.: D$RMSMEM 

USED IN FUNCTIONS.: $MEMPROT 

USED IN TYPE (.FIELDS): none 

$MPROTRW 0000 Set memory to read/write 

$MPROTRO 0200 Set memory to read only 

$OM. 

open modes 


INCLUDE FILE.: D$RMS 

USED IN FUNCTIONS.: $A0PEN, $DOPEN, $I0PEN, $0PEN, $0PENENV 

USED IN TYPE (.FIELDS]: $0PENPTS 

$0MREAD 000 Open mode: Shared read-only access 

$0MSHARE 001 Open mode: Shared read/write access 

$0MEXCL 002 Open mode: Exclusive read/write access 

$0MPREP 003 Open mode: Open or create file 

$0MCREAT 004 Open mode: Create a new file 

$0MCHECK 005 Open mode: Disk structure check access 

$0MREPAR 006 Open mode: Disk structure repair access 

$0MBYPAS 007 Open mode: Bypass passwrd/security chks 

SOPTTERM $SCAN0S terminator 


INCLUDE FILE.: D$RMS 

USED IN FUNCTIONS.: none 

USED IN TYPE (.FIELDS]: $0PTTAIL.$$0PTTERM 

$0PTTERM 0377 $SCAN0S OPT Terminator 
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$OPTF... 


option flags 


INCLUDE FILE . 

. : D$RMS 


USED IN FUNCTIONS 

. . .. : none 


USED IN TYPE (.FIELDS): $OPTION.$OPTFLG 


$OPTFDEF 

001 Returned if option given 


$OPTFVAL 

002 Returned if value given 


$OPTFQOK 

004 Option value may be quoted 


$OPTV... 

option value flags 


INCLUDE FILE. 

.. . .: D$RMS 


USED IN FUNCTIONS 



USED IN TYPE (.FIELDS): $OPTION . $OPTVAL 


$OPTVSET 

0376 Option had no value 


$OPTVCLR 

0377 Option not given 


$PABF... 

PAB flags 


INCLUDE FILE . 

.... : D$RMSSTRUCT 

1* 

USED IN FUNCTIONS 


1* 

USED IN TYPE (.FIELDS): $PABENTRY.$PABTBFLG 

1* 

1 * 

$PABFOOO 

0001 Unassigned 

1 

1* 

$PABF001 

0002 Unassigned 

1* 

$PABFDATA 

0004 Data PAB 

1* 

$PABFCOMN 

0010 Common PAB 

1* 

$PABFPS 

0020 PAB must not cross page boundry 

1* 

$PABFTP 

0040 PAB must start on page boundry 

1* 

$PABFREL 

0100 PAB is Relocatable 

1* 

$PABASS 

0200 PAB Assigned 

1* 

$PCRAFGA 

abort flag 


INCLUDE FILE . 

.... : D$RMS 


USED TN FUNCTIONS 

. . . • S SETARTF 


USED IN TYPE [.FIELDS]: (PCR)$PCRABTF 

1* 

$PCRAFCA 

000001 General abort 

1* 

Document 61585- 

-01 LISTS 

39 



















$PCRDF 


command interpreter flags $PCRCMDF 


INCLUDE FILE.: D$PCR 

USED IN FUNCTIONS.: none 

USED IN TYPE (.FIELDS): ($PCR)$PCRCMDF 


$PCRDFNH 000001 
$PCRDFEH 000002 
$PCRDFSO 000004 
$PCRDFNW 000010 
$PCRDFFK 000020 
$PCRDFCF 000040 
$PCRDFNC 000100 
$PCRDFBJ 000400 
$PCRDFWW 001000 
$PCRDFWW 001000 
$PCRDFWI 002000 
$PCRDFMC 004000 
$PCRDFNS 010000 
$PCRDFCW 020000 
$PCRDFML 040000 


Inhibit signon/heading display 

Display all heading records 

Cmd int entered from signon program 

No workstation available 

Abort GETLINE$,KEYIN$ on function key 

Reset char font and translate table 

No STOP bar - clears HELP window |* 

Batched job facility is active 

This is version II command int 

Standard window was active 

Standard window is active 

CMD Line was Menu-Generated 

No STOP bar - does not clear window |* 

Current Window data valid 

Menu line exists; 

$PCRCLEL points to New Line 


$PCRLF.. 


logging flags 


INCLUDE 

FILE. 


D$PCR 

USED 

IN 

FUNCTIONS 


$L0CCLR, $L0GSET 

USED 

IN 

TYPE (.FIELDS): 

(PCR)$PCRL0GF 



$PCRLFAC 

0001 

Logging active 



$PCRLFSP 

0002 

Logging suspended 



$PCRLFE0 

0004 

Log only error messages 



$PCRLFNI 

0010 

Log note display inhibited 



$PCRLFF0 

0020 

Log file open 



$PCRLFHR 

0040 

HD/RU before each logged message 


user task priority levels 



INCLUDE FILE. 

USED IN FUNCTIONS. 

USED IN TYPE (.FIELDS) 


D$RMSPR0G 

$SETPRI 

$INF0ITEM.$IT0PRTY 


$PRIN0RM 004 "NORMAL” priority level ($NRPRI0R/2) |* 

$PRIMAX 007 "LOWEST" priority level 
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$PTF 


tape, cassette subfunctions 


INCLUDE 

FILE.: 

D$RMSI0 

USED IN 

FUNCTIONS.: 

none 

USED IN 

TYPE (.FIELDS!: 

$PFDB.$PSUBF I 


$PTFREAD 

000 

Block read 

$PTFRDRV 

001 

Block read reverse 

$PTFFSPB 

002 

Forward space (skip)to next block 

$PTFBSPB 

003 

Backspace to previous block 

$PTFFSPF 

004 

Forward space to next tape-mark 

$PTFBSPF 

005 

Backspace to previous TAPE-MARK 

$PTFRWND 

006 

Rewind the tape, GO READY 

$PTFUL0D 

007 

Rewind and unload the tape 

$PTFWRIT 

000 

Block write 

$PTFWRTM 

001 

Write a tape-mark 

$PTFERAS 

002 

Erase some (3.5 inches) tape, 

Write extended inter-record gap I 

$RFITRC 

$RFI 

... trap remainder flag 

INCLUDE FILE. 


D$RMSPR0G 

USED IN FUNCTIONS. 


$RFIAKS, $RFIDKS, $RFIFK, $RFIKKS 

USED IN TYPE (.FIELDS]: 

none 

$RFITRC 

0200 

$RFI trap remain clear bit 

SSEC... Block I/O status bits: $SECSTAT 


INCLUDE FILE.: D$RMSIO 

USED IN FUNCTIONS.: $SECCHK, $SECWAIT 

USED IN TYPE (.FIELDS]: none 


$SECWP 

$SECACT 

$SECERR 

$SECTMD 

$SECFLOK 

$SECSTOP 

$SECSS 

$SECBSD 


OOOl Resource physical wrile protect 
0002 Operation still in progress 
0004 Soft error 
0010 Tape-mark detected 

0020 FAY locked across CLOSEALLs ($L0CKFAV) 
0040 I/O stopped by user 
0100 Stop 1/0 has been sent 
0200 Resource is a byte string device 
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$SK 


resource subkinds 


INCLUDE FILE. 

USED IN FUNCTIONS 


USED IN 

TYPE {.FIELDS! 

FAX 

$SKFCI 

000 


$SKAFX 

001 

COMM 

$SKCM481 

001 


$SKCM400 

002 


$SKCM401 

003 


$SKCM402 

004 


$SKCM462 

005 


$SKCM38I 

006 


$SKCM86I 

007 


$SKCM88I 

010 


$SKCM86M 

Oil 

DISK 

$SKDKFLX 

001 


$SKDKCTG 

002 


$SKDKM10 

003 


$SKDKM25 

004 


$SKDK67 

005 


$SKDK134 

006 


$SKDKM20 

007 


$SKDKC10 

010 


$SKDKF01 

Oil 


$SKDKW10 

012 


$SKDKS10 

013 


$SKDKS40 

014 


$SKDKW20 

015 

TAPE 

$SKMT78 

001 


$SKMT98 

002 


$SKMT916 

003 


$SKMT75 

004 

NONE 

$SKUNDEF 

000 

PRINTER 

$SKPTL0C 

001 


$SKPTFRE 

002 


$SKPTFST 

003 


$SKPTSV0 

004 


$SKPTMER 

005 


$SKPT601 

006 


$SKPT611 

007 


$SKPT621 

010 


$SKPT297 

Oil 


: D$RMSIO 
: none 

: $INFOITEM.$IROSUBK, $OPENPT.$OTSUBK 

FAX communications interface 
Peripheral FAX device 

Multi function com adaptor: 9481 MFCA 
Async com adaptors: 9400, 9401, 9402 
Async com 9400 with Bell 103 modem 
Async com 9400 with Bell 202 modem 
Port on multi port: 9462 MPC'A port 

Internal com adaptor in 1800/3800 

Internal com adaptor in 8600 

Internal com adaptor in 8800 

Comm Device on 8600 MPCA 

Flexible diskette on 1800 Microbus 
9350: 2.5 MB Cartridge on 5500/6600 
9374: 10 MB Mass storage on 5500/6600 
9370: 25 MB Mass storage on 5500/6600 
9390: 67MB on 55/66MIDS or 8800 IMOD 
9390 Disk: 134 MB fixed on 8800 IMOD 
9301:20MB fxd disk on 8600PIO "Whizzie" 
9310: 10 MB Cynthia on 8600 Microbus 
1403: 1 MB Dbl-Side Dbl-Dens Diskette 
,, TORTILLA ,, ,on 8600 uBus 
9315: 10 MB Cyclone on 8600 Microbus 
10 MB Moses on 8600 Microbus 
40 MB Moses on 8600 Microbus 
20 MB Cyclone on 8600 Microbus I* 

7-track 800 BPI Tape 
9-track 800 BPI Tape 
9-track 1600 BPI Tape 
7-track 556 BPI Tape 

Resource has no subkind 

Line printer 
Freedom printer 

Freedom prntr with secondary tractor 
Servo printer 

Mercury printer parallel I/O 
Mercury serial printer attached to MPCA 
Orion serial printer attached to MPCA 
Freedom serial printer attached to MPCA 
132 Col Serial printer attached to MP 

continued... 
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Note: The following values are also used in type: $WSC0NF |* 

masked with 

$WSKMASK 

1* 

WS $SKWSNA 

000 

Workstation not available 


$SKWS56 

001 

5500/6600 processor console 


$SKWS38 

002 

1800/3800 processor console 


$SKWS36 

003 

3601/8200 ver 1.1 Multiport 

Terminal 

$SKWSRMS 

004 

RMS WS (8200 ver.2 multi-port 

terminal) 

$SKWS86 

005 

8600 processor console 


$SKWS822 

006 

8220 workstation 


$SKWS823 

007 

8230 workstation 

1* 

$SKWSALN 

010 

Alien device (non Datapoint) 



$SQI_ 


security levels 


INCLUDE FILE.: D$RMSCEN 

USED IN FUNCTIONS.: $SETSQL 

USED IN TYPE [.FIELDS]: $OPENPT.$OTSQL, $SECURETBL.$SSFSL 

$SQLCHEK 010 Security level required to check 
$SQLMAX Oil Highest possible security level 
$SQLREPR Oil,$SQLMAX:Security levl requird to repair 


$ss 


$SECURE inodes 


INCLUDE FILE.: D$RMSI0 

USED IN FUNCTIONS.: $SECURE 

USED IN TYPE [.FIELDS]: none 


$SSCET 

000 

$SSPUT 

001 

$SSGETX 

002 

$SSPUTX 

003 


File security get from FDT 
File security put into FDT 
Get extra info from FDT 
Put extra info into FDT 


$STOP... 


$ST0PI0 modes 


INCLUDE FILE.: D$RMSIO 

USED IN FUNCTIONS.: $ST0PI0 

USED IN TYPE [.FIELDS]: none 

$ST0P0NE 0000 Stop I/O given by PFDB 

$ST0PALL 0001 Stop all 1/0 
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$ 1 G. ( .« 


task control modes 


INCLUDE FILE.: D$RMSTASK 

USED IN FUNCTIONS.: $TASKCTL 

USED IN TYPE (.FIELDS 1: none 


$TCLOKS 

$TCAKS 

$TCDKS 

$TCKKS 

$TCFK 

$TCVLKS 

$TCVAKS 


0 Force LOGOFF 

1 Force abort 

2 Force DISPLAY key sequence trap 

3 Force KEYBOARD key sequence trap 

4 Force FUNCTION key trap 

5 Force VANTAGE LOG-OFF Key Seq Trap 

6 Force VANTAGE ABORT Key Seq Trap 


$TMADJ... 


Time adjustment direction 


INCLUDE FILE.: D$RMSGEN 

USED IN FUNCTIONS.: none 

USED IN TYPE [.FIELDS]: $SYSTINFO.$TMADJDR 

$TMADJDN 0, Adjust Clock Down 
$TMADJUP 2, Adjust Clock Up 


I* 

I* 

I* 

I* 

I* 

l * 


$TMDST... 


Daylight Savings Time adjustment direction 


INCLUDE FILE.: D$RMSGEN 

USED IN FUNCTIONS.: none 

USED IN TYPE [.FIELDS]: $DSTINF0.$TMDSTFG 

$TMDSTDI 1, from end. Note: 0= from start 
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$UAB 


User abend file 


INCLUDE FILE.: D$RMSSTRUCT 

USED IN FUNCTIONS.: none 

USED IN TYPE (.FIELDS): $UABSECTOR 

$UABHDR 000 header sector LSN 
$UABALOC 001 Mem allocation table LSN 
$UABDUMP 003 Memory dump LSN 

USED IN TYPE [.FIELDS]: $UABSECTOR.UABSTAT 

$UABDUAL 001 Dual Sector Tables active 
$UABPWSX 002 Executing in PWS Sector 
$UABPWSA 004 PWS Active 
$UABSHAR 010 Shared program active 
$UABLCL 020 local task 

USED IN TYPE (.FIELDS): $UABSECTOR.UABSPSK 

$UABPRO 001 PSK is read only 
$UABPPRV 002 PSK is private to this task 
$UABPSHR 004 PSK is shared 
$UABPDAD 010 PSK owned by father task 
$UABPPCR 020 PSK is the PCR sector 
$UABPPWS 032 PSK is the PWS Sector 


INCLUDE FILE.: D$RMSPROG 

USED IN FUNCTIONS.: $USRABN 

USED IN TYPE (.FIELDS): none 

$UABSET 0 Activate User ABEND for this task 

$UABSET0 1 Activate User ABEND for other task 
$UABCLR 2 De-activate User ABEND for this task 


$UTE... 


user task error codes 


INCLUDE FILE. 

USED IN FUNCTIONS. 

USED IN TYPE (.FIELDS) 


D$RMSPR0G 

$GLUTEN 

$UABSECT0R.$UABERR 


$UTEWRIT 0000 UsrTsk Err:Memory write protect violat’n 
$UTEACCS 0001 User Tsk Err:Mem access protect violat’n 
$UTEINST 0002 Usr Tsk Err:Illegal Ins,usr mode violatn 
$UTEUNDF 0003 Usr Tsk Err:Unde fined Ins or system call 
$UTEHALT 0377 User Tsk Err:Halt Ins for breakpointng 
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$WSBL 


Workstation Bottom Line 


INCLUDE FILE.: D$RMSWS 

USED IN FUNCTIONS.: $CURSON, $DISPCH, $GETCHN, $CETCHTO, 

$GETCSTK, $GETCSTO, $GETLTNE, $GETLNTO, 
$GETPASS, $KEYCHAR, $PUTELCX, $PUTELOG, 
$PUTERP, $PUTERPX, $PUTERRR, $PUTERRX, 
$PUTLINE, $PUTLINX, $PUTLNP, $PUTLNPX, 
$PUTLOG, $PUTLOGX, $PUTNOP, $PUTNOPX, 
$PUTNOTE, $PUTNOTX, $WCONFIG, $WSIO 
USED IN TYPE (.FIELDS): $PCRCWVx(ver) 

$WSBL 000013 Bottom line 


$WSLC & $WSRC 


horizontal cursor pos. 


INCLUDE FILE.: D$RMSWS 

USED IN FUNCTIONS.: $CURS0N, $DISPCH, $GETCHN, $GETCHT0, 

$GETCSTK, $GETCST0, $GETLINE, $GETLNTO, 
$GETPASS, $KEYCHAR, $PUTELGX, $PUTELOG, 
$PUTERP, $PUTERPX, $PUTERRR, $PUTERRX, 
$PUTLINE, $PUTLINX, $PUTLNP, $PUTLNPX, 
$PUTL0G, $PUTL0GX, $PUTNOP, $PUTN0PX, 
$PUTN0TE, $PUTN0TX, $WC0NFIG, $WSIO 
USED IN TYPE (.FIELDS): $PCRCWHx(hor) 

$WSLC 0000 Left column 

$WSRC 0117 Right column 
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$ws 


configuration status bits $WSCONF 


INCLUDE FILE.: D$RMS & D$RMSWS 

USED IN FUNCTIONS.: $WCONFIG 

USED IN TYPE [.FIELDS): $WSCONFDS.$WSCONC 

$WSO 1 Workstation Kind bit 0 

$WS1 2 Workstation Kind bit. 1 

$WS2 4 Workstation Kind bit 2 

$WS3 010 Workstation Kind bit 3 

$WSKMASK 017 Workstation kind mask 

$WSCIAKA 020 INT & ATT keys downstrokes avail. 

$WSCKDKA 040 KBD & DPY keys static bits & 

upstrokes avail 

$WSCIAUA 0100 INTERRUPT & ATTENTION keys static 
bits and upstrokes available 
$WSCCKA 0200 Click available 

$WSBFSHA 0400 Shiftd function keys available 

$WSBFKUA 01000 Fl thru F5 upstrokes avail 

$WSBFKDA 02000 Fl thru F5 downstrokes avail 

$WSBFKSA 04000 Fl thru F5 static bits avail 


$WSBLCFA 010000 Display font set loadable 

$WSBIVA 020000 Inverted video available 

$WSBCPA 040000 Cursor positioning avail 

$WSBSWA 010000 Sub windows available 


$WS2... 


$WC0NFIG Third Status Byte Flags $WSC0NF2 


INCLUDE FILE.: D$RMSWS 

USED IN FUNCTIONS.: none 

USED IN TYPE [.FIELDS]: $WC0NFDS.$WSC0N2 


$WS2P0W 1 Tube just powered on 
$WS2IPL 2 System just Re-Booted 
$WS2CFL 4 Cursor font loadable 
$WS22LVA 010 2-Level video available 
$WS2ULNA 020 Underline available 
$WS2BNKA 040 Blink available 

$WS2EFK0 0100 Extended function keyboard on-line 


* 
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$WS3... 


$WCONFIG Third Status Byte Flags 


INCLUDE FILE.: D$RMSWS 

USED IN FUNCTIONS.: none 

USED IN TYPE (.FIELDS): $WCONFDS.$WSCON3 


$WSCON3 BYTE Values 


$WS3FD0 

0 

Character Font Not 

Loadable 



$WS3FD1 

thru $WS3FD4 

: Table heading 

i* 



Size 

Size 

Length 

Descriptor 




Horiz 

Vert 

Per Char Required? 


$WS3FD1 

1, 

5 

7 

5 

no 

i* 

$WS3FD2 

2, 

5 

7 

7 

no 

i* 

$WS3FD3 

3, 

8 

12 

12 

yes 

i* 

$WS3FD4 

4, 

9 

12 

12 

yes 

i* 


$WS3FDMK 017 'Font Data' Mask 
$WS3NFMK 0360 'Number of Fonts' Mask 
$WS3NFS 004 'Number of Fonts' Shift Value 


$WSM... 


$WSI0 Mode Bits $WSI0M0DE 


INCLUDE 
USED IN 


USED IN 


FILE. 


: D$RMSWS 

FUNCTIONS. 

: $GETCHN, $GETCHT0, $GETCSTK, $GETCSTO, 
$GETLINE, $GETLNT0, $KEYIN, $KEYINT0, 
$WSI0 

TYPE [.FIELDS] 

: PUTWSMD$ 

$WSMNW 

0001 

Inhibit 'DISPLAY' key wait 

$WSMES 

0002 

Echo secret (char) 

$WSMNI 

0004 

No case inversion 

$WSMNE 

0010 

No echo or cursor 

$WSMKC0N 

0020 

Keyin continuous 

$WSMDIGO 

0040 

Digits only 

$WSMPADN 

0100 

Pad numeric decimal part 

$WSMNESC 

0200 

No escape b4 0-037 or 0177 
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$ws... 


Status Bits $WSTAT 


INCLUDE 

FILE. 


D$RMSWS 

USED 

IN 

FUNCTIONS, 


$WSTATUS & $WAITI0S 

USED 

IN 

TYPE (.FIELDS): 

none 



$WSF1 

0001 

'Fl' key down 



$WSF2 

0002 

'F2' key down 



$WSF3 

0004 

' F3' key down 



$WSF4 

0010 

'F4' key down 



$WSF5 

0020 

'F5' key down 



$WSDSP 

0040 

'DISPLAY' key down 
'KEYBOARD' key down 



$WSKBD 

0100 



$WS0NL 

0200 

'ONLINE' status (always true) 



$WSRDY 

0400 

Key ready 



$WSINT 

01000 

'INTERRUPT' key down 



$WSATT 

02000 

'ATTENTION' key down 


$ws 


Workstation Keyboard Codes 


INCLUDE FILE.: D$RMS & D$RMSWS 

USED IN FUNCTIONS.: $WSGETCH & $WSIO 

(and UFRs: $KEYIN & $KEYINTO) I* 

USED IN TYPE (.FIELDS): none 


CODES Returned by $WSGETCH and $WSIO on: 

• STANDARD' keyboards 

• ’UNIVERSAL' keyboards 

• ’EXTENDED FUNCTION' keyboards 

$WSRPTK (Repeated Key) Returned 

only by $WSGETCH (not $WSIO) 

STANDARD Keyboard Codes: 


Marking: 

$WSBSPK 

$WSCANK 

$WSENTK 

$WSECHO 


0010 'BACKSPACE' key 

0030 'CANCEL' key 

0015 'ENTER' key 

0052 '*' used in keyin echo 


Non-Marking: 

$WSBLANK 

$WSCURS 

$WSDELK 


0040 ' ' , Reserved for blank code 

0000 Reserved for cursor code (1800) 
0177 'DEL' key (used by katakana) 


continued... 
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SPECIAL Keyboard Codes: 


Non-keystroke codes: 

$WSBADPK 0220 Bad parity received 

$WSKFULL 0234 Keyin fifo full 

$WSDLLR 0235 ’DLL response (8220)* character 

$WSTIME0 0376 Last char in string if timed-out 

$WSWAKEK 0377 Wake up 


Function Key Downstroke 
$WSDSPK 0200 

$WSKBDK 0202 

$WSF1K 0204 

$WSF2K 0206 

$WSF3K 0210 

$WSF4K 0212 

$WSF5K 0214 

$WSINTK 0216 

$WSATTK 0217 


Codes: 

’DISPLAY’ key 
’KEYBOARD' key 
’FI' key 
'F2' key 
'F3’ key 
’F4' key 
’F5 1 key 
’INTERRUPT’ key 
'ATTENTION' key 


Function Key Upstroke Codes: 


$WSDSPUP 

0201 

'DISPLAY' key released 
’KEYBOARD’ key released 

$WSKBDUP 

0203 

$WSF1UP 

0205 

'FI' 

key released 

$WSF2UP 

0207 

' F2' 

key released 

$WSF3UP 

0211 

' F3' 

key released 

$WSF4UP 

0213 

' F4' 

key released 

$WSF5UP 

0215 

' F5 ’ 

key released 

$WSINTUP 

0221 

'INTERRUPT' key released 

$WSATTUP 

0222 

'ATTENTION' key released 


Shifted Function Key Downstroke Codes: 


$WSF1KS 

0223 

’FI' 

key shifted 

$WSF2KS 

0224 

'F2' 

key shifted 

$WSF3KS 

0225 

' F3' 

key shifted 

$WSF4KS 

0226 

' F4' 

key shifted 

$WSF5KS 

0227 

' F5' 

key shifted 

$WSINTKS 

0230 

’INTERRUPT' key shifted 

$WSATTKS 

0231 

'ATTENTION' key shifted 

$WSDSPKS 

0232 

’DISPLAY' key shifted 
’KEYBOARD’ key shifted 

$WSKBDKS 

0233 


Last Static Key Code: 

(for value testing) 

$WSLSTSK 0222 $WSATTUP Last static key code 


continued.. . 
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CODES Returned by $WSGETCH and $WSI0 on: 
• 'EXTENDED FUNCTION' keyboard only 
Non-keystroke codes: 


$WSCENUP 

0340 

generic rollover key upstroke 

1* 

$WSEFKFO 

0341 

extended function keyin FIFO overflow 

1* 

$WSEFBPK 

0342 

Bad parity keycode - E.F. keyboard 

1* 

Defined Function 

Key Downstroke Codes: 


1* 

$WSSYSD 

0200 

’SYSTEM' key down 

1* 

$WSVIEWD 

0202 

’VIEW' key down 


1* 

$WSQUITD 

0204 

'QUIT' key down 


1* 

$WSPNTD 

0206 

’POINT’ key down 


1* 

$WSUNDOD 

0210 

’UNDO’ key down 


1* 

$WSHELPD 

0212 

’HELP’ key down 


1* 

$WSCOPYD 

0214 

’COPY' key down 


1* 

$WSREMVD 

0216 

'REMOVE’ key down 

1* 

$WSINSTD 

0220 

’INSERT' key down 

1* 

$WSRECLD 

0222 

’RECALL’ key down 

1* 

Defined Function 

Key Upstroke Codes: 


1* 

$WSSYSU 

0201 

’SYSTEM’ key up 


1* 

$WSVIEWU 

0203 

’VIEW' key up 


1* 

$WSQUITU 

0205 

'QUIT' key up 


1* 

$WSPNTU 

0207 

'POINT' key up 


1* 

$WSUNDOU 

0211 

'UNDO' key up 


1* 

$WSHELPU 

0213 

’HELP' key up 


1* 

$WSCOPYU 

0215 

'COPY' key up 


I * 

$WSREMVU 

0217 

'REMOVE' key up 


1* 

$WSINSTU 

0221 

'INSERT' key up 


1* 

$WSRECLU 

0223 

'RECALL' key up 


1* 

Numbered Function Key 

Downstroke Codes: 


1* 

$WSEFF1D 0230 

function key '1' 

down 

1* 

$WSEFF2D 0232 

function key ’2’ 

down 

1* 

$WSEFF3D 0234 

function key ’3’ 

down 

1* 

$WSEFF4D 0236 

function key ’4’ 

down 

1* 

$WSEFF5D 0240 

function key ’5’ 

down 

1* 

$WSEFF6D 0242 

function key ’6’ 

down 

1* 

$WSEFF7D 0224 

function key '7' 

down 

1* 

$WSEFF8D 0226 

function key '8' 

down 

1* 

Numbered Function Key 

Upstroke Codes: 



$WSEFF1U 

0231 

function key '1' 

up 

1* 

$WSEFF2U 

0233 

function key '2' 

up 

1* 

$WSEFF3U 

0235 

function key ’3’ 

up 

1* 

$WSEFF4U 

0237 

function key '4' 

up 

1* 

$WSEFF5U 

0241 

function key '5' 

up 

1* 

$WSEFF6U 

0243 

function key ’6' 

up 

1* 

$WSEFF7U 

0225 

function key '7' 

up 

1* 

$WSEFF8U 

0227 

function key '8' 

up 

1* 


continued... 
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Geometric Symbol Function Key Downstroke Codes: 
$WSSQARD 0244 ’SQUARE' key down 
$WSTRIAD 0246 'TRIANGLE' key down 
$WSCIRCD 0250 'CIRCLE' key down 


Geometric Symbol Function Key Upstroke Codes: 
$WSSQARU 0245 'SQUARE' key up 
$WSTRIAU 0247 'TRIANGLE' key up 
$WSCIRCU 0251 'CIRCLE' key up 


Cursor Pad Key Downstroke Codes: 

$WSCKULD 0252 Cursor Key 
$WSCKUCD 0254 Cursor Key 
$WSCKURD 0256 Cursor Key 
$WSCKCLD 0260 Cursor Key 
$WSCKCCD 0262 Cursor Key 
$WSCKCRD 0264 Cursor Key 
$WSCKDLD 0266 Cursor Key 
$WSCKDCD 0270 Cursor Key 
$WSCKDRD 0272 Cursor Key 

Cursor Pad Key Upstroke Codes: 

$WSCKULU 0253 Cursor Key 
$WSCKUCU 0255 Cursor Key 
$WSCKURU 0257 Cursor Key 
$WSCKCLU 0261 Cursor Key 
$WSCKCCU 0263 Cursor Key 
$WSCKCRU 0265 Cursor Key 
$WSCKDLU 0267 Cursor Key 
$WSCKDCU 0271 Cursor Key 
$WSCKDRU 0273 Cursor Key 


(UP-LEFT) down 
(UP-CENTER) down 
(UP-RIGHT) down 
(CENTER-LEFT) down 
(CENTER-CENTER) down 
(CENTER-RIGHT) down 
(DOWN-LEFT) down 
(DOWN-CENTER) down 
(DOWN-RIGHT) down 


(UP-LEFT) up I* 
(UP-CENTER) up I* 
(UP-RIGHT) up I* 
(CENTER-LEFT) up I* 
(CENTER-CENTER) up I* 
(CENTER-RIGHT) up I* 
(DOWN-LEFT) up I* 
(DOWN-CENTER) up I* 
(DOWN-RIGHT) up I* 


Miscellaneous Key Downstroke Codes: 

$WSCMDD 0274 'COMMAND' key down 
$WSENT1D 0276 'ENTER (LEFT)' key down (U.S.A.) 
$WSNPE1D 0300 number pad 'ENTER' key (top) down 
$WSBAK1D 0302 'BACKSPACE (LEFT)' key down (U.S.A.) 
$WSSHF2D 0304 'SHIFT (LEFT/RIGHT)' key down (U.S.A.) 
$WSSHF4D 0306 'SHIFT (RIGHT/RIGHT)' key down (U.S.A) 
$WSALT2D 0310 'ALT (LEFT/RIGHT)' key down 
$WSALT3D 0312 'ALT (RIGHT/LEFT)' key down 
$WSENT2D 0314 'ENTER (RIGHT)' key down (U.S.A.) 
$WSENTD 0314 $WSENT2D 'ENTER' key down (U.S.A.) 
$WSBAK2D 0316 'BACKSPACE (RIGHT)' key down (U.S.A.) 
$WSBAKSD 0316 'BACKSPACE' key down (U.S.A.) 

$WSTABD 0320 'TAB' key down 


I* 

I* 

I* 

1* 

I* 

I* 

I* 

I* 

I* 

I* 

I* 

I* 

I* 

I * 


continued... 
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Miscellaneous Key Upstroke Codes: 

$WSCMDU 0275 ’COMMAND' key. up 
$WSENT1U 0277 'ENTER (LEFT)' key up (U.S.A.) 
$WSNPE1U 0301 number pad 'ENTER' key (top) up 
$WSBAK1U 0303 'BACKSPACE (LEFT)' key up (U.S.A.) 
$WSSHF2U 0305 'SHIFT (LEFT/RIGHT)’ key up (U.S.A.) 
$WSSHF4U 0307 'SHIFT (RIGHT/RIGHT)' key up (U.S.A.) 
$WSALT2U 0311 'ALT (LEFT/RIGHT)' key up 
$WSALT3U 0313 'ALT (RIGHT/LEFT)' key up 
$WSENT2U 0315 'ENTER (RIGHT)' key up (U.S.A.) 
$WSENTU 0315 $WSENT2U 'ENTER' key up (U.S.A.) 
$WSBAK2U 0317 'BACKSPACE (RIGHT)' key up (U.S.A.) 
$WSBAKSU 0317 'BACKSPACE' key up (U.S.A.) 

$WSTABU 0321 'TAB' key up 


Number Pad Key Downstroke Codes: 

$WSNPTBD 0322 number pad 'TAB* key down 
$WSNPE2D 0324 number pad 'ENTER' key (bottom) down 
$WSNPEND 0324 number pad 'ENTER' key down 


Number Pad Key Upstroke Codes: 

$WSNPTBU 0323 number pad 'TAB' key up 
$WSNPE2U 0325 number pad 'ENTER' key (bottom) up 
$WSNPENU 0325 number pad 'ENTER' key up 

LOCK and CASE INVERT Key Codes: 

$WSLOCKD 0326 'LOCK' key down 
$WSCASED 0326 'CASE INVERT' key down 

$WSLOCKU 0327 'LOCK 1 key up 
$WSCASEU 0327 'CASE INVERT' key up 


Control Key Downstroke Codes: 

$WSSHFLD 0330 'SHIFT (LEFT)' key down (U.S.A.) 
$WSSHF1D 0330 'SHIFT (LEFT/LEFT)' key down (U.S.A.) 
$WSSHFRD 0332 'SHIFT (RIGHT)' key down (U.S.A.) 
$WSSHF3D 0332 'SHIFT (RIGHT/LEFT)' key down (U.S.A. 
$WSALTLD 0334 'ALT (LEFT)' key down 
$WSALT1D 0334 'ALT (LEFT/LEFT)' key down 
$WSALTRD 0336 'ALT (RIGHT)' key down 
$WSALT4D 0336 'ALT (RIGHT/RIGHT)' key down 


Control Key Upstroke Codes: 

$WSSHFLU 0331 'SHIFT (LEFT)' key up (U.S.A.) 
$WSSHF1U 0331 'SHIFT (LEFT/LEFT)' key up (U.S.A.) 
$WSSHFRU 0333 ’SHIFT (RIGHT)' key up (U.S.A.) 
$WSSHF3U 0333 'SHIFT (RIGHT/LEFT)’ key up (U.S.A.) 
$WSALTLU 0335 'ALT (LEFT)' key up 
$WSALTlU 0335 ’ALT (LEFT/LEFT) 1 key up 
$WSALTRU 0337 'ALT (RIGHT)' key up 
$WSALT4U 0337 'ALT (RIGHT/RIGHT)' key up 


continued 
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First and Last SHIFT/Control keycode values: 

(for value testing) 

$WSSHFTF 0330 first SHIFT key 
$WSSHFTL 0337 $WSALTRU, last SHIFT key 
$WSEFCTT 0337 E.F. keyboard - top control value 
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$ws 


$WSIO control codes 


INCLUDE FILE.: D$RMSWS & D$RMS I* 

USED IN FUNCTIONS.: $WSIO 

USED IN TYPE (.FIELDS): none 

Note: Some of the control codes require a one byte 

value following the code, indicated (). Some 
require an address, indicated (()). Some require 
some of each. 

$WSIO String Control Code Range: 

$WSIOFCF 0200 $WSI0 function code first value 
$WSI0FCL 0276 $WSK1CHR; $WSI0 func code last value |* 

CURSOR CONTROL 

$H 0234 New cursor column follows (pos) 

$V 0235 New cursor row follows (pos) 

$HA 0236 Cursor column adjustment follows (adj) 

$VA 0237 Cursor row adjustment follows (adj) 

$CP 0240 Cursor position follows (vert),(horz) 

$HU 0241 Home up to upper left-hand corner 

$HD 0242 Home down to lower left-hand corner 

$NL 0243 Advance to new line 

$WSCUR0N 0214 Turn Cursor On at current position 
$WSCUR0F 0215 Turn Cursor Off at current position 

GENERAL 

$EE0F 0200 Erase from cursor to end of frame 

$EEOL 0201 Erase from cursor to end of line 

$RU 0202 Roll screen up one line 

$RD 0203 Roll screen down one line 

$ES 0231 End of string 

$EL 0232 Advance to new line,terminate strg 

$ESNF 0271 End Of String, don't flush display 

$NS 0233 New string address follows ((loc)) 

$WSN0P 0244 No operation 

$WSSM0DE 0245 Set mode (bits) 

$WSCM0DE 0246 Clear mode (bits) 

$WSCKF 0247 Clear keyboard fifo 

$WSBEEP 0204 Beep 
$WSCLICK 0205 Click 

$WSIKC0N 0210 Key click on 
$WSIKC0F 0211 Key click off 

continued... 
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$WSATTEN 0216 Enable KDS 3 Attributes; underline & 
2-level video on 8600 console. Has 
no effect on other workstations. 

$WSC0NFD 0272 WS Config data (Len),((Loc)) 

$WSREC0N 0273 WS Reconfig data (Len),((Loc)) 
where ((Loc)) has the format: 

Mask__0, Value_0, Mask_l , Value_l 

Mask_lLen-1], Value_lLen-1] I* 

VIDEO 

$WSVI 0206 Video inverted 
$WSVN 0207 Video normal 
$WSSVM0D 0264 Set video mode (mode) 

VIDEO MODES follow $WSSVM0D: 

$WSVM2L 0000 Vid Mode: Bold-face, 
double intensity 

$WSVMUNL 0001 Video Mode: Underline 
$WSVMBNK 0002 Video Mode: Blink- 
$WSVMAF 0003 Video Mode: Alternate font 

PRINTER 

$WSPTR0N 0212 Turn On Printer connected to WS 
$WSPT0FF 0213 Turn Off Printer connected to WS 

$WSLF 0265 Line feed for WS serial printers 
$WSFF 0266 Form feed for WS serial printers 
$WSCR 0267 Carriage return WS serial printers 

INSERT DELETE OPEN CLOSE SCROLL WINDOW 

$WSRESET 0217 Reset Window to Default Screen size 
$WSRESTR 0225 Same as $WSRESET except 8600 KDS 
attributes are not disabled 

$WSSWTB 0222 Set sub window (vert-top),(vert-bot) 
$WSSWLR 0223 Set sub window (horz-left),(horz-right) 

$WSID0CS 0224 (INS, DEL, OPEN, CLOSE, SCROLL codes) 

Codes following $WSID0CS: 

$WSINSCH 0 Insert space under cursor, shift down 

(vert),(horz) I* 

$WSDELCH 1 Delete char under cursor, shift up 

(vert),(horz) I* 

$WSINSLN 2 Roll down lines from cursor to bottom 
$WSDELLN 3 Delete line under cursor and roll up 
$WS0PENL 4 Open line from under cursor rolling 
$WSCLOSL 5 Close line from under cursor rolling 

continued... 
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The scroll commands are followed by the characters 

$WSSCRL 0006 Scroll left < followed by data > 

$WSSCRR 0007 Scroll right < followed by data > 
$WSSCRE 0010 End of scroll data 

OUT and IN Strings 

$WSOS 0250 Output string (len),((loc )) 

$WS0NCH 0251 Output repeated (char),(n) times 

$WSIS 0252 In string (con),(max),((loc)),(end) 
$WSISI 0253 In string imm (con),(max),(skip),(end) 

$WSIN 0254 In numeric (lmax),(rmax),((loc)),(end) 

$WSINI 0255 In numrc imm (lmax),(rmax),(skip),(end) 

$WSITIME 0256 Set inter-char timeout to (t) seconds 

KEYIN TRANSLATE TABLE: 

$WSSKXTA 0257 Set keyin translate table at ((loc)) 
$WSSKXTP 0261 Set keyin xlate table at ((loc)),(psk) 

$WSKEYCH 0270 Keyin un-xlated character at ((Loc)) 
$WSK1CHR 0276 Keyin un-xlated char at ((Loc)) 
with cursor on/off 

$WSECH0S 0262 Set echo secret disply char (char) 
$WSTWAIT 0263 Perform n second wait (n) 

CHARACTER FONT SET: 

$WSLCFS 0260 Load char font set from ((loc)) 

$WSCURFL 0274 Load cursor font from ((Loc)) 

$WSCURDF 0275 Return to default cursor font 


continued... 
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$WSIO ESCAPE SEQUENCE 1 codes 
for the Extended Function Keyboard 


* 

* 


$WSESC1 0226 indicates that $WSI0 'escape-sequence-1' 
codes follow. 


I* 

i* 


Last control code values (for testing): I* 

$WSESClL 1, $WSEFCTL;Last escape-seq-1 control code. |* 
$WSEFCL 016, $WSEFST2;Last EFK Control code value. |* 


These codes may follow $WSESC1: 

$WSDSCNT 0 Disconnect datastation 
$WSEFCTL 1 Expanded Function Keyboard control. 
See the Escape-Sequence-1 codes that 
follow this code; below... 

Escape 1 Sequences that may be used via: 

o Keycode Translate Module path, or 
o General Purpose Keyboard Emulation path. 

All sequences begin: $WSESC1,$WSEFCTL,... 


...$WSEFRST 0 Same as $WSRESET except reset all but 
Keycode Xlate Module path 

...$WSEFL0W 1 followed by (CONTROL); 

Expanded function KBD Flow control 

CONTROL bit definitions: 


$WSLENON 

$WSPUP0F 

$WSDKP0F 

$WSBIFDT 

$WSLNT0F 


001 Enable Keycode Translate Module 
path; nicknamed 'LENS' 

002 Disable Locked Key Processing; 

nicknamed 'PUPIL' 

004 Disable Dead Key Processor 
010 Get data from Internal Buffer 
Module; nicknamed 'BIFOCAL' 

020 Disable Keycode Translate Module 
path; nicknamed 'LENS' 


...$WSEFRID 
...$WSEFSTC 


3 followed by ((L0C)); Get keyboard I.D. 

7 followed by ((LOC)); Get current static 
bits, i.e. control codes. 

.$WSEFSTF 010 followed by ((LOC)); Get control key 
static bits from static key FIFO. 

LOC is six bytes long. 

.$WSEFSTL Oil followed by ((LOC)) Get latched static 
bits, i.e. the cumulative result of any 
keys pushed since last occurrence of 
control sequence. 


I* 

I* 

I* 

I* 

I* 

i* 

i* 

i* 


i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 

i* 
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...$WSEFST2 016 followed by ((LOC)); Get status bits 

+ $WSTATUS bits. LOC is nine bytes; the 
same 7 bytes for $WSEFSTC plus the 2 
bytes normally returned by $WSTATUS. 

Escape 1 Sequences that require that the 

o Keycode Translate Module path be enabled. 


...$WSEFLCD 2 followed by (MASK),(CONTROL) 

LCD display segment control 

MASK and CONTROL bit definitions (are the same): 


$WSLCDLC 0001 LOWER CASE "a” (0/1) (OFF/ON) 
$WSLCDUC 0002 UPPER CASE "A" (0/1) (OFF/ON) 
$WSLCDDP 0004 DISPLAY (0/1) (OFF/ON) 

$WSLCDKD 0010 KEYBOARD (0/1) (OFF/ON) 

$WSLCDSQ 0020 SQUARE (0/1) (OFF/ON) 

$WSLCDTR 0040 TRIANGLE (0/1) (OFF/ON) 

$WSLCDCR 0100 CIRCLE (O/l) (OFF/ON) 

. $WSEFRPT 4 followed by (TIME); set repeat key 
timeout in increments of 16 
milliseconds. 

. $WSEFECI 5 Enable case inversion 

. $WSEFDCI 6 Disable case inversion 

. $WSEFKAB 012 followed by (CKEY); Abort field keyin 

on detection of ocntrol key downstroke. 

. $WSEFKAR 013 Reset all field keyin abort keys. 

. $WSEFKTP 014 followed by (CKEY); Activate function 
trap for control key downstroke 
specified. 


I * 
I* 
I* 
I* 
I* 
I* 
I* 

I* 
I * 
I* 

I* 
I * 

I* 
I * 

I* 

i* 

i* 

i * 


.$WSEFKTR 015 Reset all function key traps. 
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$XCFMS.. 


FMS exception codes: $SCFMSCODES 


INCLUDE FILE.: D$FAR 

USED IN FUNCTIONS.: $ADELCR, $APOS, $AREAD, $AREADCR, 

$AREADKG, $ARWRTCR, $AWRITE, $DDEL, 
$DDELCR, $DCETCRK, $DPOS, $DPOSNX, 
$DPOSPV, $DREAD, $DREADCR, $DREADNX, 
$DREADPV, $DRWRT, $DRWRTCR, $DWRITE, 
$IDEL, $IDELC'R, $IDELK, $1INS, $IPOS, 
$IPOSKP, $IPOSKS, $IREAD 
USED IN TYPE (.FIELDS): none 


$XCFMS00 000 
$XCFMS01 001 
$XCFMS02 002 
$XCFMS03 003 
$XCFMS04 004 
$XCFMS05 005 
$XCFMS06 006 
$XCFMS07 007 


Dummy code. Undefined 
File pos out of range 
No such record 
ISAM key not found 
ISAM duplicate key 
Record already exists 
No current record exists 
File positioned to EOF 
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FUNCTION FORMATS 

Description 


Some DEFINITIONS 

DASL: Datapoint Adavanced System Language 
RMS: Resource Management System 
MACRO: ...a combining form, meaning long 
FUNCTION: ...a variable quantity dependent 
upon other quantities 


DEFINE FUNCTION FIELDS 

Definition of Function Format Fields 


DATE ENTERED: When added to Dictionary 

UPDATED.: Last change to Function or Description 

CATEGORY: Function Kind 

FILE....: DASL INCLUDE File where 
Function is Declared 

SYNTAX..: DASL macro statment of FUNCTION 
(with list of Arguments) 

RESULT..: Function's resultant value, if any 

USE.: Syntax to use if function use requires 

only one condition test (which is not 
an error message condition) 

ASSIGN..: Syntax to use if function use requires 
assigning function result to a variable 
for multiple condition tests. 

ENTRY.1.: Argument #1 NAME and TYPE (if it is an 

ENTRY.2.: #2 entry parameter) 

ENTRY.9.: upto #9 
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..EXIT 1: 
..EXIT 2: 
..EXIT 9: 

IF ERROR: 


REMARKS.: 
SEE ALSO: 

DASL DOC: 

SPRM REF: 


Argument #1 NAME and TYPE (if it is an 

#2 exit parameter) 

upto #9 


Syntax to use if the function has an 

RMS error code condition. Sometimes this is 

the complete statement form required for use 

unless an ASSIGN: statement or group of 

statments is specified, in which case 

the IF ERROR: statement is used in sequence 

with them. 


NOTE: 

In the FUNCTION Section description 
of error codes, contents of: 
$ERRC.$FUNC = SC$.... or 
$ UEC... 

$ ERRC.$C0DE = $EC...nn or 
SUED...nn 

The $EC..nn or $UEC..nn ends with a 
DECIMAL NUMBER. 

Statements testing the 
value of $ERRC.$C0DE may use the 
word if it is defined in DASL. 
Defined values will have :D$fileName 
or ;♦ (if defined in D$ERRC0DE) 
following the line of description. 

If the value is not defined, use the 
decimal value, not the word. 


Miscellaneous Discretion 

Cross Referencing and Association of 
Functions 

The DASL Document, March 1982 (page) 

Not to Be MAINTAINED in released version 

RMS System Programmer's Reference Manual 
Not to Be MAINTAINED in released version 

DATE of SPRM Referenced is SEPT 82 
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EXAMPLES FUNCTION ENTRIES 

Examples of Possible Field Entrys 


CATEGORY: User Function Routine 
File Access Routine 
System Call 

DASL External Function 
DASL Compiler Macro 
DASL Include Macro 
DASL Control Word 
DASL Declaration Word 
DASL Reserved Word 
Cross Reference 


Functions used from 
these files cause 
additional REL Code 
added to program. 


. 

D$INC * 

1 

DSRMS/VtfV 

D$UFR£W 

1 

D$FAR 


DSRMS * 

OmsSTRUCT 

DSUFREM 


1 

DSERRCODE 

DSRMS/0 

DSUFRMW 


1 

DSERRNUM 

DSRMSifS 

DSUFRSYS 


2 

DSPCR 

D$RMS PROG 

D$UFRSCA/V 


2 

D$W0RKSTN 

DSRMS GEN 

DSUFR^S 

1* 



DJRMSSFfC 

D$UFRGf/V 



1 1 

DmSTASK 

QWRLIB 


★ 

Always 


OWRNQDQ 



INCLUDE 


D$UFR RLD 



for RMS 


DSUFRAfFAf 





DJUFRW70 




(System 

(User 

(File 



Calls) 

Functions) 

Access) 


INCLUDE files as needed 


1. Include if not always using SERMSG if error occurs. 

2. Include if needed. 

... .continued 
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SYNTAX..: FUNCTIONname (argument 1, anotherArgument, 

aFunctionArgument,aVa1ueHaybe, 
oneOrTwoByteVa1ues, 
aPointerToValue, 

* AaddressOfVariableName * 

upToNineArgumentsEven ) 

NOTE: 

The names of arguments will appear in 
small letters since they represent variables 
which must be defined by the programmer. 
Those names must be exclusive to the local 
or global block of DASL code in which the 
function statement is used. 

The variables must be of the "type" 
indicated in the 
ENTRY n..: or 

.. EXIT n: fields of the description. 

The ampersand is commonly used in 
the actual function statements to assign an 
argument with the value of the "address of" 
a variable. 


* & ... the ADDRESS OF OPERATOR * 

see the discussion that follows in 
this section. 

ALL EXIT PARAMETERS are now shown 
using the Address Of operator . 


continued 
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RESULT..: DSCCODE is a very popular TYPE of result 


A program statement of a function name 
"may" be DEFINEd as a value (not a Variable 
with a specific memory location). 

This resultant value "may" be used in a 
program statement of some longer expression 
and/or ASSIGNed to some variable 
(for example, to do multiple tests on the 
condition code flags when the function's 
value is type D$CC0DE). 

Result values must be of 
CLASS: SCALAR or POINTER, 

(but not 

CLASS: ARRAY, FUNCTION or STRUCTURE/UNION ). 

DSCCODE is a Type of Value defined 
(by TYPDEF ) as a 

Class: SCALAR; 

Specific Type: BYTE. 

In addition four bits have been defined 

3 S * 

D$CFLAG,D$ZFLAG,D$SFLAG,D$PFLAG. 


DASL 

SCALAR 

TYPES: BYTE 
CHAR 
BOOLEAN 
I NT 

UNSIGNED 

LONG 


DASL 

POINTER 

TYPES: (may POINT 
to any TYPE 
in any CLASS ) 
SCALAR 
ARRAY 
POINTER 
FUNCTION 
STRUCTURE/UNION 


(a POINTER is type 
UNSIGNED ) 

.continued 
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USE.: IF {FUNCTION (argl,arg2) && D$CFLAG 

THEN conditional; 

NOTE: 

Where a conditional statement or label 
would appear in a real statement, in these 
descriptions, the reason for the condition 
is usually stated. 

ASSIGN..: varRslt := {FUNCTION (argl, arg2 ); 

IF varRslt && D{ZFLAG 
THEN conditionalStatment; 

NOTE: 

"varRslt" represents a variable to be 
defined. See the NOTE: in USE.: above. 

ENTRY.1.: argumentl ITS TYPE; and comments 

ENTRY.2.: arg2 ITS TYPE; and comments 

ENTRY.9.: arg9 ITS TYPE; and comments 

..EXIT 1: same as ENTRIES 
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IF ERROR: IF FUNCTION (...) && DSCFLAG 
THEN $ERMSG (); 

or IF varRsIt && D$CFLAG THEN $ERMSG (); 
or No Error Occurs 

For the first 2 cases: possible error 
code value names which may be in 
SERRC.SFUNC and SERRC.SCODE 
(variables defined in Include file DSRMS as 
EXTERNAL type $ERRC0DE). 

NOTE: 

(...) means the argument list defined 
in SYNTAX.: 


NOTE: 

In the FUNCTION Section description 
of error codes, contents of: 

SERRC.SFUNC = SCS_ or 

SUEC... 

SERRC.SCODE = $EC...nn or 
$UEC...nn 

The SEC..nn or SUEC..nn ends with a 
DECIMAL NUMBER. 

Statements testing the 
value of SERRC.SCODE may use the 
word if it is defined in DASL. 
Defined values will have :D$fileName 
or :* (if defined in DSERRCODE) 
following the line of description. 

If the value is not defined, use the 
decimal value, not the word. 


SEE ALSO: More info or Functions which are related. 
DASL DOC: n, n (pages) March 1982 or July 1982 

SPRM REF: Vol.(n) Sec. (n.n.n.n) Date: 9-01-82 
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Use of the 


ADDRESS OF OPERATOR 


I As of this Update, ALL EXIT PARAMETERS 
I are shown using the ADDRESS OF operator. 


The ampersand is commonly used in function 
statements to mean "address of" a variable. 

Example: 

Description in DASL DICTIONARY 

SYNTAX..: JFUNCTI0N1 (first, second) 

ENTRY 1.: first A BYTE; 

ENTRY 2.: second A BYTE; 

Program Usage 

VAR DOG, CAT BYTE; 

CATADDRESS A BYTE; 

{ IF SFUNCTI0N1 ( &D0G, CATADDRESS ) THEN GO }; 
or { IF JFUNCTI0N1 ( 4D0G, SCAT ) THEN GO }; 

.are equivalent 

All parameters which are exit parameters (and in 
some cases also entry parameters) may be specified in 
the calling sequence SYNTAX with the ADDRESS OF 
jperator (ampersand) because all exit parameters 
'equire a pointer to a destination location. 

Note that both of the following examples are 
>pecifiying the same equivalent function. 

In the DASL Dictionary, FUNCTION Descriptions do 
lot show the ADDRESS OF operator in the SYNTAX 
»xamples. However, all parameters which are exit 
jarameters have at least one "pointer to" ( A ) operator 
in their TYPE specifications. 
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Therefore, in the calling sequence, you may 
specify a variable which is of the TYPE specified 
(e.g. a pointer to a BYTE), or you may specifiy a 
variable name (preceeded by an ampersand) which is th< 
specified TYPE less one "pointer to “ operator (e.g. 
BYTE). 


Note also, if an ampersand preceeds a parameter 
name in the SYNTAX description, you may choose to 
write the calling sequence with a variable name not 
preceeded with an ampersand, but that variable must b< 
a pointer to the TYPE of variable specified. 

Restatement of the principle: 


If the object is to assign a value to a variable 
of some TYPE, and the function parameter requires a 
pointer to that variable TYPE, then you may specifiy 
that parameter as the variable name preceeded by the 
ampersand. Or, you may have an extra predefined 
variable which is a pointer to the first variable. Yoi 
may then specify the function parameter as the name o- 
the pointer variable (this seems like un-neccessary 
extra work in many cases). 

If the function is specified by one convention 
in the Dictionary, it will still work if you choose ti 
use it the other way, if that is preferable for some 
reason. 


...example follows 


10 
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TWO Ways the Functions COULD be Defined 

The functions could be defined without specifying 
ADDRESS OF or they could specify ADDRESS OF. In either 
case the net result is the same. Basically putting an 
ampersand before a variable name in a function 
calling sequence is equivalent to specifying a value 
which is a pointer to that variable TYPE. 


EXAMPLE of Function Description 

without ADDRESS OF OPERATOR: 


SYNTAX..: 

$WSI0 


(mode 

string, hor, ver, end) 

RESULT..: 

DSCCODE 




ENTRY 1.: 

mode 

A 

BYTE; 

Initial mode bits (SWSM..) 

ENTRY 2.: 

string 

A 

CHAR; 

Data to be displayed 

ENTRY 3.: 

hor 

A 

BYTE; 

Initial horizontal cur pos 

ENTRY 4.: 

ver 

A 

BYTE; 

Initial vertical cursor pos 

EXIT 1..: 

mode 

A 

BYTE; 

Mode,unless error: invalid 

EXIT 3..: 

hor 

A 

BYTE; 

Position after last char 

EXIT 4..: 

ver 

A 

BYTE; 

Position after last char 

EXIT 5..: 

end A 

A 

CHAR; 

Char after string terminator 


EXAMPLE of Function Description Modified 

with ADDRESS OF OPERATOR: 

SYNTAX.. 

: SWSIO 

(Smode, string, Shor, Aver, Send) 

RESULT.. 

: DSCCODE 



ENTRY 1. 

: mode 

BYTE; 

Initial mode bits (SWSM..) 

ENTRY 2. 

: string A 

CHAR; 

Data to be displayed 

ENTRY 3. 

: hor 

BYTE; 

Initial horizontal cursor pos 

ENTRY 4. 

: ver 

BYTE; 

Initial vertical cursor pos 

EXIT 1.. 

: mode 

BYTE; 

Mode, unless error: invalid 

EXIT 3.. 

: hor 

BYTE; 

Position after last char 

EXIT 4.. 

: ver 

BYTE; 

Position after last char 

EXIT 5.. 

: end A 

CHAR; 

Char after string terminator 
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FUNCTIONS 

Explanation of FUNCTION SECTION FORMAT Fields 

Please see the more detailed discussion of each 
field in the preceding section, FORMATS. Also please 
note the discussion of the use of the ADDRESS OF 
operator. A]J EXIT parameters are now shown in the 
calling syntax examples with use of the ADDRESS OF_ 
operator: & (ampersand symbol) 


HINT: Always look at the TYPE SECTION^ description 
for the TYPE of each parameter to get more 
information about those structures, which 
are not detailed in each FUNCTION description 
since they are typically used by more than 
one function. 

Title Fields 

FUNCTIONNAME FUNCTION FUNCTIONNAME 

Brief Description of Function 
General Fields 

Category: Function kind ( One of ten groups ) 

Entered : Date added to DASL Dictionary 

Updated : Last date when function or comments changed 

File : DASL INCLUDE File where Function is Defined 
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Calling Syntax, Result, and Parameter Fields 


+■ 

Syntax 


Result 


Use 


Assign 


Note: In the calling sequence 

descriptions for each function 

1. BOLD WORDS: actual words to use 

2. bold italic WORDS: in lowercase 
letters are values or variable 
name substitutes which represent 
values or variables to be 
assigned or declared by the 
programmer. 

3. Italic WORDS: following an 

IF THEN statement represent the 
the condition meaning, and would 
actully be replaced in a program 
with conditional code. 


: Defined Macro Calling Sequence 
( usually the calling sequence is 
not used alone but is combined 
with IF statements: see USE, 
ASSIGN, and IF ERROR fields.) 

: Function's resultant value TYPE. 
Some functions have no defined 
result. The Result TYPE is not 
actually written in the program. 

: Calling syntax to use if only one 

. condition flag test is required, 
except for TRUE CARRY FLAG, the 
standard RMS ERROR condition. 

: Calling syntax to use if multiple 
condition flags are to be tested. 
First the function is called in a 
statement assigning its result to 
a variable. 
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Note: Parameters 


+■ 


•+ 


1 . 


A DASL Function Macro may be defined to have 
zero to nine parameters in its calling 
sequence. 


2. Parameters may be defined to be either entry 
parameters or exit parameters, or both. 

3. Each parameter will be listed once as an 
entry parameter or once as an exit parameter 
or twice if it is both an entry and exit. 

4. The number of the parameter in the list of 
entry and exit parameters, refers to the 
parameters position in the calling sequence. 

5. Parameters will always be 1,2,or 4 byte 
scalar values or pointers or ULONG structures. 

NOTE: What we are calling DASL RMS System 
"Functions", are actually DASL MACROS which 
have a slightly broader definition than a 
FUNCTION VARIABLE TYPE. A macro is defined 
with a DEFINE statement, a function is 
declared in a DASL declaration statement. 
Macros may have any string as an argument, 
including any variable, function, macro, etc. 

Parameters should be specified in a 
calling sequences as required in one of the 
following ways: 

a) IF a Value TYPE is required, specify: 

NUMERIC VALUE (e.g. 20, 034, 1«31, 64000 
or SINGLE LITERAL VALUE (e.g. 'A') 
or DEFINED VALUE NAME 

or VARIABLE NAME (Automatically assumes value) 
or POINTER NAME A (Indirect "variable name") 

b) IF a Pointer TYPE is required, specify: 

& VARIABLE NAME (Address of) 
or POINTER NAME 

.. .continued 
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I c) IF the parameter in the Syntax : EXAMPLE I 
j is of the from Asomethinq , specify: I 

I A VARIABLE NAME if the parameter is a value j 

I or A POINTER NAME if the parameter is a pointer j 

+- : -+ 

Entry and Exit PARAMETER Fields 


Entry 1 : vari abl eNameOrVal tie 
thru 

Entry 9 : variableNameOrVal ue 

* Exit 1: variableName 

thru 

* Exit 9: variableName 


TYPE; Comments 

TYPE; Comments 
TYPE; Comments 

TYPE; Comments 


Standardized ERROR Calling Syntax Field 

If Error: Calling syntax to use if the function has 
a possible RMS error condition. This will 
always be a test of the TRUE CARRY FLAG 
condition. 


A Call to SERMSG () will be shown if 
that could be used. The programmer may opt 
to make tests on the $ERRC bytes to decide 
to execute some other code, rather 
than abort through SERMSG. Possible 
contents of SERRC will be listed. 

Often this is the complete statement 
form required to use the function, unless 
an ASSIGN statement, or group of statements 
is specified, in which case the IF ERROR 
statement is used in sequence with them. 

Miscellaneous Fields 


Remarks : Miscellaneous Inf."mation 

See Also : Cross Referencing and Association of Functions 
DASL Doc: The DASL Document , March 1982 (page reference) 

SPRM Ref: RMS System Programmer's Ref Manual 

Volume and Section References 
*** Update 1 Set tember 1982 *** 
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the FUNCTIONS 


SACLOSE FUNCTION SACLOSE 


Close an AIM File 

Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$FAR 

Syntax : SACLOSE (work, fob, mode ) 

Result : DSCCODE 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 

Entry 2 : fcb A $FCBA; FOB 

Entry 3 : mode BYTE; Close mode ($CM...) 

If Error: IF $ACL0SE (...) && D$CFLAG THEN SERMSG (); 

SERRC $FUNC — $FHS 

$ERRC.$C0DE = $ECFMS0,$ECFMS2,$ECFMS4,$ECFMS5, 
SECFMS6 

SPRM Ref: SACLOSE Vol.3Sec. 5.3.1.2 
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SADELCR 


FUNCTION 


$ADELCR 


AIM Delete Current Record Read by $AREAD,SAREADKG 


Category : File Access Routine 

Entered : 82 Jul 01 Updated : 83 Ju1 01 

File : DSFAR 


Syntax : SADELCR (work, fob, &err) 

Result : DSCCODE 

Assign : varRslt : = $ADELCR (work, fcb, &err); 
IF varRslt && D$ZFLAG 
THEN ("err" has exception code); 


Entry 1 : work A [256] BYTE; Paged buffer, D$BUFn 
Entry 2 : fcb A $FCBA; FCB 

* Exit 3: err BYTE; Exception code ($XCFMS06) 


If Error: IF varRslt && DSCFLAG THEN $ERMSG (); 
$ERRC.$FUNC = $FMS 

SERRC.SCODE = SECFMSO,$ECFMS2,$ECFMS54 
SPRM Ref: %ADELCR Vol.3Sec. 5.3.2.3 


$AINS 


FUNCTION 


$AINS 


Insert Key into AIM Index for Existing Data Reed 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSFAR 


Syntax : SAINS (work, fcb, ierr) 

Result : DSCCODE 

Assign : varRslt := SAINS (work, fcb, &err); 

IF varRslt && DSZFLAG 

THEN ("err" has exception code); 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A SFCBA; FCB 

* Exit 3: err BYTE; Exception codes (none in SPRM)? 


If Error: IF varRslt && DSCFLAG THEN SERMSG (); 
SERRC.SFUNC = SFMS 

SERRC.SCODE = SECFMSO,$ECFMS2,$ECFMS50,$ECFMS 
' SPRM Ref: SAINS Vol.3Sec. 5.3.3.3 
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$AIOCLR 


FUNCTION 


$AIOCLR 



Category. File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$FAR 


Syntax : $AI0CLR (work, fob) 
Result : DSCCODE 


Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fob A $FCBA; FCB 


If Error: IF SAIOCLR (...) && DSCFLAG THEN $ERMSG (); 

SERRC . $FUNC = $FMS 
$ERRC . $C0DE = SECFMSO,SECFMS2 
SPRM Ref: $AI0CLR Vol.3Sec. 5.3.1.3 
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$AOPEN 


FUNCTION 


$AOPEN 


Initialize AIM File Access 


Category : File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$FAR 

Syntax : JAOPEN (work, fcb, mode, openpt, name) 
Result : D$CCODE 

Entry 1 : work A [256] BYTE; Paged buffer, DJBUFn 

Entry 2 : fcb A $FCBA; FCB 

Entry 3 : mode BYTE; Open mode ($0M...) 

Entry 4 : openpt A SOPENPT; Open parameter table 

Entry 5 : name A SNAMEEXTENV; File Name Ext Env 

If Error : IF $A0PEN (...) && DJCFLAG THEN $ERMSG (); 
$ERRC.$FUNC = $FMS 

$ERRC.$C00E = $ECFMS1,$ECFMS2,$ECFMS3, 
$ECFMS4,$ECFMS5,$ECFMS6,$ECFMS7,$ECFMS11, 
SECFMS19,$ECFMS20,$ECFMS21,SECFMS46, 
$ECFMS47,SECFMS48,JECFMS49,SECFMS59 
Remarks : $A0PEN must be called before any FMS calls 
to this SFCBA. 

See Also : SOPENENV for Open Modes, Access Codes, 
Formats 

SPRM Ref: SAOPEN Vol.3 Sec. 5.3.1.1 
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$APOS 


FUNCTION 


$APOS 


Position to Logical Record Meetinc 


Category : File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$FAR 


Syntax : $AP0S (work, fob, ierr) 

Result : D$CCODE 

Assign : varRslt := $AP0S (work, fob, &err): 
IF varRslt && D$ZFLAG 
THEN ("err" has exception code); 


Entry 1 : work A [256] BYTE; Paged buffer, D$BUFn 
Entry 2 : fcb A $FCBA; FCB 

* Exit 3: err BYTE; Exception code ($XCFMS02) 


If Error : IF varRslt && D$CFLAG THEN $ERMSG (); 

SERRC.SFUNC = $FMS 

$ ERRC. SCODE = $ECFMS0,$ECFMS2,$ECFMS50, 
SECFMS51,$ECFMS52,SECFMS55 

Remarks : Subsequent SAREADKG operations access data. 
SPRM Ref: $AP0S Vo1.3Sec. 5.3.3.4 
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$AREAD 


FUNCTION 


$AREAD 


AIN Read Logical Record Meeting 


List Spec 


Category : File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSFAR 


Syntax : $AREAD (work, fob, Aerr, Aend) 

Result : DSCCODE 

Assign : varRslt := SAREAD (work, fob, Aerr, Aend); 
IF varRslt && D$ZFLAG 
THEN ("err" has exception code); 

Entry 1 : work A [256] BYTE; Paged buffer, D$BUFn 

Entry 2 : fcb A $FCBA; FCB 

* Exit 3: err BYTE; Exception code ($XCFMS02) 

* Exit 4: end A CHAR; Last char stored in user area 

If Error : IF varRslt && DSCFLAG THEN JERMSG (); 
$ERRC.$FUNC = $FMS 

$ERRC.$C0DE = see $AP0S for error codes 
SPRM Ref: JAREAD Vol.3Sec. 5.3.3.1 
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SAREADCR FUNCTION $AREADCR 

Read after $AP0S or Re-read Current after SAREAD 


Category : File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$FAR 

Syntax : SAREADCR (work, fcb, & err. Send) 

Result : D$CCODE 

Assign : varRslt := SAREADCR (work, fcb, ierr, &end); 
IF varRslt && DSZFLAG 
THEN ("err" has exception code); 

Entry 1 : work A [256] BYTE; Paged buffer, DJBUFn 

Entry 2 : fcb A $FCBA; FCB 

* Exit 3: err BYTE; Exception codes ($XCFMS06) 

* Exit 4: end A CHAR; Last char stored in user area 

If Error: IF varRslt && DSCFLAG THEN SERMSG ( ); 

$ERRC.$ FUNC = S FMS 
$ERRC.SCODE = $ECFMS0,SECFMS2 
SPRM Ref: SAREADCR Vol.3Sec. 5.3.2.2 
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SAREADKG FUNCTION SAREADKG 



Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$FAR 


Syntax : SAREADKG (work, fcb, S err, Send) 

Result : DfCCODE 

Assign : varRslt := SAREADKG (work, fcb, Serr, Send); 
IF varRslt && DSZFLAG 
THEN ("err" has exception code); 


Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 

Entry 2 : fcb A SFCBA; FCB 

* Exit 3: err BYTE; exception codes (SXCFMSOl.SXCFMS 

* Exit 4: end A CHAR; Last char stored in user area 


If Error: IF varRslt && DSCFLAG THEN SERMSG (); 

$ ERRC.$ FUNC = $ FMS 

$ERRC.$C0DE = $ECFMS0,$ECFMS2,$ECFMS53 
Remarks : Use after SAPOS to read that record. Use to 
read subsequent records then or after SAREAD. 
SPRM Ref: SAREADKG Vol.3Sec. 5.3.2.1 
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$ARWRTCR function $ARWRTCR 

AIM Rewrite Current Record after SAREAD, SAREADKG 

Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$FAR 

Syntax : $ARWRTCR (work, fob, & err, &end) 

Result : DSCCODE 

Assign : varRslt := JARWRTCR (work, fob, &err, &end); 
IF varRslt && D$ZFLAG 
THEN ("err" has exception code); 

Entry 1 : work A [256] BYTE; Paged buffer, D$BUFn 

Entry 2 : fcb A $FCBA; FCB 

* Exit 3: err BYTE; Exception code ($XCFMS06) 

* Exit 4: end A CHAR; Last char read from user area 

If Error: IF varRslt && DJCFLAG THEN JERMSG (); 
SERRC.SFUNC = $FMS 

$ERRC.SCODE = $ECFMS0,$ECFMS2,$ECFMS54 
SPRM Ref: $ARWRTCR Vol.3Sec. 5.3.2.4 
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SAWRITE 


FUNCTION 


$AWRITE 


Write Reed at End of Data File,Insert Key in Index 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$FAR 


Syntax : $AWRITE (work, feb, &err, &end) 

Result : D$CCODE 

Assign : varRslt := $AWRITE (work, fob, & err, &end); 
IF varRslt && D$ZFLAG 
THEN ("err" has exception code); 


Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 

Entry 2 : feb A $FCBA; FCB 

* Exit 3: err BYTE; Exception codes ($XCFMS...) 

* Exit 4: end A CHAR; Last char read from user area 


If Error : IF varRslt && DSCFLAG THEN $ERMSG ( ); 
$ERRC.$FUNC = $FMS 

$ERRC.$C0DE = $ECFMS0,$ECFHS2,$ECFMS50 
SPRM Ref: JAWRITE Vol.3Sec. 5.3.3.2 
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$BASESET 


FUNCTION 


$BASESET 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
* Exit 2: 

If Error: 
SPRM Ref: 


$BEEP 


Category: 
Entered : 
File : 

Syntax : 
Result : 

If Error: 


See Also: 
SPRM Ref: 


Set the Memory Base Register 
System Call 

82 Jul 01 Updated : 83 Apr 02 

DSRMSMEM 

SBASESET (base, Hold) 

DSCCODE 

base BYTE; New base value 

old BYTE; Previous base value 

No Error Occurs 

SBASESET Vol.4 Sec. 5.2.5 


FUNCTION 


$BEEP 


Workstation, Make a Beep Sound 

System Call 

82 Jul 01 Updated : 82 Dec 01 

DSRMSWS 

$BEEP () 

DSCCODE 

IF $BEEP (...) && DSCFLAG THEN $ERMSG ( ); 

SERRC.$ FUNC = SCSWSCTL 
SERRC. $C0DE = SECWSCC1 
Uses System Call SWSCTL 
$BEEP Vol.4 Sec. 11.9 
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BIGBCPS 


FUNCTION 


BIGBCPS 


Compare Large Strings, ASM Language UFR 
Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 

Syntax : SEE DtCOMP, DASL EXTERNAL FUNCTION equivalent 
SPRM Ref: BIGBCPS Vol.2Sec. 8.3 

BIGBT$ FUNCTION BIGBT3 

Move 16-bit Length, ASH Language UFR 
Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 

Syntax : SEE D$MOVE, DASL EXTERNAL FUNCTION equivalent 
SPRM Ref: BIGBTS Vol.2Sec. 8.1 

SBINOC24 function SBINOC24 

Numeric, Convert 24-Bit Binary to ASCII Octal 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRNUM 


Syntax : $BIN0C24 (value, right, size) 
Result : none 


Entry 1 : value 
Entry 2 : right 
Entry 3 : size 


UL0NG; 24 bit value to convert 
A CHAR; Output area end:low order byte 
BYTE; Output bytes desired 


If Error: No Error Occurs 

SPRM Ref: BIN0C24$ Vol.2Sec. 4.1 
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$BINOCT 


FUNCTION 


$BINOCT 


Numeric, Convert 16-bit Binary to ASCII Octal 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRNUM 

Syntax : JBINOCT (value, right, size) 

Result : none 

Entry 1 : value UNSIGNED; 16 bit value to convert 
Entry 2 : right A CHAR; Output area end:low order byte 

Entry 3 : size BYTE; Output bytes desired: 0 is legal 

If Error: No Error Occurs 

SPRM Ref: BIN0CT$ Vol.2Sec. 4.2 
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CASE 


FUNCTION 


CASE 


Transfer Control to Statement Label equal to Argument 


Category : DASL Control Word 

Entered : 82 Jul 01 Updated : 83 Jul 19 

Syntax : CASE arg {labell:stmnt; label2:stmnt; 
label3:stmt; _DEFAULT :stmt;}; 


Remarks : Labels may be defined numeric or character values 
consistent with the argument type used. The order 
of listing labels is not important, except DEFAUL 
must be last. 

DASL Doc: 27,74 March 1982 


$CHAININ function $CHAININ 

Workstation-IF, Determine if CHAINing is Active 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRWS 

Syntax : SCHAININ () 

Result : DSCCODE 

Use : IF JCHAININ () && D$CFLAG=0 
THEN (CHAIN not Active) 

If Error: No Error Occurs 

SPRM Ref: CHAININ$ Vol.2Sec. 7.20 
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$CLICK 


FUNCTION 


$CLICK 


Workstation, make a click sound 


Category: System Call 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSRMSWS 

Syntax : SCLICK () 

Result : D$CCODE 

If Error: IF SCLICK () U DSCFLAG THEN SERMSG ( ); 

SERRC.$FUNC = SCSWSCTL 
JERRC.$ CODE = $ ECWSCC1 
SPRM Ref: SCLICK Vol.4 Sec. 11.8 
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$CLOSE 


FUNCTION 


$CLOSE 


Close a File 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 

File : D$RMS 

Syntax : SCLOSE (mode, pfdb) 

Result : DSCCODE 


Entry 1 : mode BYTE; close modes ($CM...) 
Entry 2 : pfdb A $PFDB; 


If Error: IF $CL0SE(...) && DSCFLAG THEN SERMSG ( ); |* 

$ERRC.$FUNC = SCSCLOSE 

$ERRC.$C0DE = All resources |* 

SECUMAV,SECSI001,SECS 1005.SECSI007, |* 
SECSI010.SECSI034 |* 


Disk resources 

SECS 1012,SECS 1013,$ ECS1014,SECS1015, 
SECSI021,SECSI032,$ECSI045 

Pipe resources 
SECSI021,$ECSI045 

Printer resources 
SECSI021,SECSI045 


I 


* 

* 

★ 


* 

* 


Remarks : Close Modes: $CMUNCH,$CMCHOP ( $CMSIZE,$CMKILL 
SCLOSE does not flush buffers. SSECWAIT or 
other flush operations must complete first. 


SPRM Ref: 

SCLOSE 

Vol .4 

Sec. 

7.4.3 

SPRM Ref: 

SCLOSE 

Vol .4 

Sec. 

8.4.5 

SPRM Ref: 

SCLOSE 

Vol .4 

Sec. 

9.1.1.5 

SPRM Ref: 

SCLOSE 

Vol .4 

Sec. 

9.2.1.3 

SPRM Ref: 

SCLOSE 

Vol .4 

Sec. 

9.3.1.3 

SPRM Ref: 

SCLOSE 

Vol .4 

Sec. 

9.4.1.3 

SPRM Ref: 

SCLOSE 

Vol .4 

Sec. 

10.1.3 
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5CL0SEAL 


FUNCTION 


$CLOSEAL 


Close All Open Files 


Category: System Call 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSRMSIO 


Syntax : $CL0SEAL () 
Result : DSCCODE 


If Error: No Error Occurs 

Remarks : Performs a $ CLOSE in SCMUNCH mode on all 
FAV's owned by the Task. 

See Also: $$C10SEAL for CHAIN or LOG compatibility 
SPRM Ref: SCLOSEAL Vol.4Sec. 7.4.4 


$$CLOSEAL FUNCTION $$CLOSEAL 


Workstation-IF, Interface to SCLOSEAL System Cal 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRWS 


Syntax : $$CL0SEAL () 
Result : D$CCODE 


If Error: No Error Occurs 

Remarks : Use instead of System Call to guarantee 
CHAIN and LOG compatibility. 

See Also: SCLOSEAL 

SPRM Ref: CLOSEALS Vol.2Sec. 7.16 
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SCONDEC 


FUNCTION 


$CONDEC 


Numeric, Convert ASCII Decimal String to Binary 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$UFRNUM 

Syntax : JCONDEC (iscanpt) 

Result : UNSIGNED 

Entry 1 : scanpt A CHAR; Start of decimal string 
* Exit 1: scanpt A CHAR; Non-numeric terminator 

or last byte converted + 1 

If Error: No Error Occurs 

SPRM Ref: C0NDEC$ Vol.2Sec. 4.3 


$CONOC24 f unct ion $CONOC24 


Numeric, Convert ASCII Octal to 24-Bit Binar) 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSUFRNUM 


Syntax : $CONOC24 (iscanpt, ivalue) 
Result : none 


Entry 1 : scanpt A CHAR; Start of ASCII string 

* Exit 1: scanpt A CHAR; Terminator: non-(0 thru 7) 

* Exit 2: value ULONG; 24-bit binary value 


If Error: No Error Occurs 

SPRM Ref: C0N0C24$ Vo 1.2 Sec. 4.4 
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$CONOCT 


FUNCTION 


$CONOCT 


Numeric, Convert ASCII Octal to 16-Bit Binary 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$UFRNUM 

Syntax : SC0N0CT (iscanpt) 

Result : UNSIGNED 

Entry 1 : scanpt A CHAR; Start of ASCII string 

* Exit 1: scanpt A CHAR; Terminator: non-(0 thru 7) 

If Error: No Error Occurs 

SPRM Ref: CONOCTS Vol.2Sec. 4.5 
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$CSCPUSH PUNCTZON $CSCPUSh 

Workstation, Push Command Lines Below Current Pointer 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRWS 

Syntax : SCSCPUSH (lines, length) 

Result : DSCCODE 

Entry 1 : lines A CHAR; strings terminated by $WSENTK 
Entry 2 : length UNSIGNED; length of set of strings 

If Error: IF $CSCPUSH (...) && DSCFLAG 
THEN (won't fit on stack) 

SPRM Ref: CSCPUSHS Vol.2Sec. 7.14 


$CSPOP FUNCTION $CSPOP 


Workstation-IF, Pop The Command Stack 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRWS 


Syntax : SCSPOP () 

Result : DSCCODE 

Use : IF SCSPOP () && DSZFLAG 

THEN (command stack empty) 


If Error: No Error Occurs 

SPRM Ref: CSPOPS Vol.2Sec. 7.12 
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$CSPUSH function $CSPUSH 

Workstation,Push a Command Line Onto Command Stack 

Category : User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRWS 

Syntax : $CSPUSH (line) 

Result : DSCCODE 

Entry 1 : line A CHAR; string terminated by $WSENTK 

If Error: IF SCSPUSH (...) && DSCFLAG 
THEN (won't fit on stack) 

SPRM Ref: CSPUSHS Vol.2Sec. 7.13 


$CSPUSHN function $CSPUSHN 

Workstation,Push Command Lines Onto Command Stack 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 23 

File : DSUFRWS 

Syntax : $CSPUSHN (lines, length) 

Result : DSCCODE 

Entry 1 : lines A CHAR; 

Entry 2 : length UNSIGNED; 

If Error: IF SCSPUSHN (...) && DSCFLAG 
THEN (won't fit on stack) 

Remarks : allows a series of strings to be pushed on 
the stack at current pointer position 
SPRM Ref: CSPUSHNS Vol.2 Sec. 7.15 
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$CURSOFF 


FUNCTION 


$CURSOFF 


Workstation, Turn Off the Cursor 

Category: System Call 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$RMSWS 

Syntax : SCURSOFF () 

Result : DSCCODE 

If Error : IF SCURSOFF (...) && DSCFLAG THEN $ERMSG (); 
SERRC.SFUNC = SCSWSCTL 
SERRC.SCODE = SECWSCC1 
Remarks : Uses SYSTEM CALL $WSCTL 
SPRM Ref: SCURSOFF Vol.4 Sec. 11.7 


$CURSON funct ion $CURSON 

Workstation, Turn On the Cursor 
Category: System Call 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSRMSWS 

Syntax : JCURSON (hor, ver) 

Result : DSCCODE 

Entry 1 : hor BYTE; horizontal position ($WSRC,$WSLC) 
Entry Z : ver BYTE; vertical position ($WSBL) 

If Error: IF SCURSON (...) && DSCFLAG THEN SERMSG ( ); 
SERRC.SFUNC = SCSWSCTL 
SERRC.SCODE = SECUMAV,S ECWSCC1,SECWSCC2 

Remarks : Uses SYSTEM CALL SWSCTI_cursor stays on unti 

turned off or SWSIO function writes to screen 
See Also: SWCONFIG for screen size. 

SPRM Ref: SCURSON Vol.4 Sec. 11.6 
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$CVB 


FUNCTION 


$CVB 


Numeric, Convert ASCII Decimal to 16-Bit Binary 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSUFRNUM 

Syntax : $CVB (iscanpt, size) 

Result : UNSIGNED 


Entry 1 : scanpt 
Entry 2 : size 
* Exit 1: scanpt 


A CHAR; Left-most 
BYTE; Number of 
A CHAR; Left-most 


byte of string 
bytes to convert 
plus "size" 


If Error: No Error Occurs 

See Also: Same as SCONDEC except has no terminator. 
SPRM Ref: CVB$ Vol.2 Sec. 4.6 


$CVB24 pumctiom $CVB24 

Numeric, Convert ASCII Decimal to 24-Bit Binary 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSUFRNUM 


Syntax : SCVB24 (iscanpt, <S value) 

Result : none 


Entry 1 : scanpt 

* Exit 1: scanpt 

* Exit 2: value 


A CHAR; Left-most ASCII byte 
A CHAR; Terminator: non-numeric 
ULONG; 24-bit binary value 


If Error: No Error Occurs 

SPRM Ref: CVB24S Vol.2 Sec. 4.7 
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$CVB24L 


FUNCTION 


$CVB24L 


Numeric, Convert ASCII Decimal to 24-Bit Binary 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$UFRNUM 


Syntax : SCVB24L (Ascanpt, size, ivalue) 
Result : none 


Entry 1 : scanpt 
Entry 2 : size 

* Exit 1: scanpt 

* Exit 3: value 


A CHAR; Left-most ASCII byte 

BYTE; Number of bytes to convert 
A CHAR; Left-most plus "size" 
ULONG; 24-bit value 


If Error: No Error Occurs 

See Also: Same as SCVB24 except has no terminator. 
SPRM Ref: CVB24LS Vol.2Sec. 4.8 


$CVD 


FUNCTION 


$CVD 


Numeric, Convert 16-Bit Binary to ASCII Decimal 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DJUFRNUM 

Syntax : $CVD (value, left, size) 

Result : none 


Entry 1 : value UNSIGNED; Binary value to convert 

Entry 2 ; left A CHAR; Left-most output byte 

Entry 3 : size BYTE; Output length (1 to 5 bytes) 

If Error: No Error Occurs 

See Also: $CVDZ for zero-suppression other than blank 
SPRM Ref: CVD$ Vol.2 Sec. 4.9 
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$CVD24 


FUNCTION 


$CVD24 


Numeric, Convert 24-Bit Binary to Decimal 


Category: User Function Routine 

Entered : 82 Uul 01 Updated : 82 Dec 01 

File : DSUFRNUM 


Syntax : $CVD24 (value, left, size) 
Result : none 


Entry 1 : value ULONG; Binary value to convert 
Entry 2 : left A CHAR; Left-most output byte 
Entry 3 : size BYTE; Output area (1 to 8 bytes) 


If Error: No Error Occurs 

See Also: SCVD24Z for zero-suppression other than blank 
SPRM Ref: CVD24$ Vo 1.2 Sec. 4.10 


$CVD24Z PUNcnoM $CVD24Z 


Numeric, $CVD24 with Zero-Suppression Non-Blank 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRNUM 


Syntax : JCVD24Z (value, left, size, fill) 
Result : none 


Entry 1 : value ULONG; Binary value to convert 

Entry 2 : left A CHAR; Left-most output area 

Entry 3 : size BYTE; Output field length (1-8) 

Entry 4 : fill CHAR; Fill character 


If Error: No Error Occurs 

See Also: SCVD24 for zero suppression using blank 
SPRM Ref: Vol.2Sec. 4.10 
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$CVDZ 


FUNCTION 


$CVDZ 


Numeric, $CVD with Zero-Suppression Non-Blank 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRNUM 


Syntax : $CVDZ (value, left, size, fill) 
Result : none 


Entry 1 : value UNSIGNED; Binary value to convert 

Entry 2 : left A CHAR; Left-most output byte 

Entry 3 : size BYTE; Output field (1 to 5 bytes) 

Entry 4 : fill CHAR; Zero-suppression character 


If Error: No Error Occurs 

See Also: $CVD for zero suppression using blank 
SPRM Ref: CVD$ Vol.2 Sec. 4.9 
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$CVSTIME function $CVSTIME 

General-Utility, Obtain System Date and Time Info 

Category. User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 23 

File : DSUFRGEN 

Syntax : $CVSTIME (time, output) 

Result : none 

Entry 1 : time A JTIME; Seconds since 01/01/1901 

Entry 2 : output A SCVSTBL; month,day,year,time,etc. 

If Error: No Error Occurs 

SPRM Ref: CVSTIMES Vol.2Sec. 8.6 
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D$CALL 


FUNCTION 


D$CALL 


Call an Arbitrary Externally Defined Subroutine 

Category: DASL External Function 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSINC 

Syntax : DSCALL (Function) 

Result : DSCCODE 

Entry 1 : Function A DSCALLF; Pointer to subroutine 

If Error : "usually" IF DSCCODE && DSCFLAG 
THEN SERMSG () or other action 

Remarks : 

Calls an external routine which has been 
declared TYPE DSCALLF. DSCALL is used in the DEFINE 
statements for FAR and UFR external routine macros. 
(System Calls use D$SC). 

Like D$SC, DSCALL requires the macro DEFINE 
statement to first assign argument values 
e.g. FUNCTION (argument,argument,..) 
into the Processor Register Variables: 
DSX,D$A,DSB,D$C,DSD,D$E,DSH,D$L, 
DSXA,DSBC,D$DE,D$HL 
(for 5500,6600 processor series). 

The DSCALL function then calls the external 
function which is its argument. On return, the DSCALL 
routine places the processor register values back into 
the Processor Register Variables,and puts the processor 
flag conditions in the DSCCODE type byte DSCC. 

The DEFINE statement then assigns any pertinent 
register values into the macro function's arguments. 

SERRC is defined as EXTERNAL type SERRCODE and 
always contains the contents of DSBC for use with 
RMS error message coding and checking. 
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EXAMPLE: 

Macro Statement (this is what the user uses): 


$CVB24L (scanpt, size. 

va 

lue) 




External Function Declarati 

on 

(in IncT 

ude 

File) 

: 

EXTERN CVB24LS DJCALLF; 

/* 

the UFR 

routine 

V 

Macro Definition (in Include F 

ile): 




DEFINE($CVB24L, { 

/* 

Define 

the 

macro 

*/ 

< A CHAR>D$HL:=(#1) A ; 

/* 

scanpnt 

in 

HL 

*/ 

D$A:=(#2); 

/* 

size in 

A 


*/ 

D$CALL(SCVB24L$); 

/* 

call 



*/ 

(#1) A :=< A CHAR>D$HL; 

/* 

HL to scanpt 

*/ 

(#3) A :=<UL0NG>D$E; 

/* 

E to va 

lue 


*/ 

I I 

NOTE: The Processor Regis 

ter 

Variable 

es 

should 

not 


be referenced by USER programs except to DEFINE 
interfaces to user defined external routines, 
otherwise that program is processor series 
dependent. 

See Also: D$SC for SYSTEM CALL External Function 
DASL Doc: 90-91 March 1982 
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D$COMP 


FUNCTION 


D$COMP 


Category: 
Entered : 
File : 

Syntax : 
Result : 


Entry 1 : 
Entry 2 : 
Entry 3 : 

If Error: 
Remarks : 
DASL Doc: 
SPRM Ref: 


Block Compare Two Character Strings 

DASL External Function 

82 Jul 01 Updated : 82 Dec 01 

D$ INC 

DSCOMP (source, dest, num) 

I NT 

Zero if the two strings are equal, 
else Difference of first unmatched bytes: 
SourceByte minus DestinationByte 

source A BYTE; Character string 1 
dest A BYTE; Character string 2 

num UNSIGNED; Number of bytes to compare 

No Error Occurs 
Replaces UFR BIGBCPS 
90 March 1982 

BIGBCPJ Vol.2 Sec. 8.3 


D$GET24 


FUNCTION 


D$GET24 


Numeric, Convert 24 Bit to 32 Bit Value 


Category: DASL External Function 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$INC 

Syntax : D$GET24 (pul) 

Result : LONG 

Entry 1 : pul A UL0NG ; 24 bit value 
If Error: No Error Occurs 

DASL Doc: 90-98 12 JUL 1982 
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D$INFO 


FUNCTION 


D$INFO 


Return Processor Type 


Category: DASL External Function 

Entered : 83 Apr 02 Updated : 84 Jul 01 |* 

File : D$INC 

Syntax : D$INF0 () 

Result : BYTE 


If Error: No Error Occurs 

REMARKS.: The result value for different processor 


types 

is: 

1* 

5000 

series: 0 

1* 

6000 

series: 1 

1* 

1800 & 3800 

series: 2 

1* 

8800 

series: 3 

1* 

8600 

series: 5 

1* 

8400 

series: 9 

1* 

D$JUMP 

FUNCTION 

D$JUMP 


Jump to an Arbitrary Externally Defined Subroutine 


Category: DASL External Function 

Entered : 82 Dec 01 Updated : 84 Aug 8 |* 

File : D$RMS I* 

Syntax : DSJUMP (function) 

Result : Does not return 

Entry 1 : function A DSCALLF; Function to jump to 
If Error: No Error Occurs 
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D$MOVE 


FUNCTION 


D$MOVE 


Block Move 0 to 65535 Bytes 


Category: DASL External Function 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSINC 


Syntax : D$M0VE (source, dest, num) 
Result : none 


Entry 1 : source A BYTE; Address of bytes to be moved 
Entry 2 : dest A BYTE; Address to be moved to 

Entry 3 : num UNSIGNED; Number of bytes to move 


If Error : No Error Occurs 

Remarks : Replaces UFR BIGBTS 

DASL Doc: 90 March 1982 


D$MOVER function D$MOVER 

Block Move Reverse, Starting at Ending Address 
Category: DASL External Function 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSINC 

Syntax : DSM0VER (source, dest, num) 

Result : none 

Entry 1 : source A BYTE; Address of bytes to be moved 

Entry 2 : dest A BYTE; Address to be moved to 

Entry 3 : num UNSIGNED; Number of bytes to move 

If Error: No Error Occurs 

Remarks : Similar to DSM0VE except decrements address 
from end of memory segment to beginning. 

DASL Doc: 90-98 12 JUL 1982 
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D$PUT24 


FUNCTION 


D$PUT24 


Numeric, Convert 32 Bit to 24 Bit Value 


Category: DASL External Function 

Entered : 82 Jul 01 Updated : 84 Jul 01 | 

File : D$INC 

Syntax : DJPUT24 (1 , Spul) 

Result : none 

Entry 1 : 1 LONG; 32 bit value 

* Exit 2: pul ULONG; 24 bit value | 

If Error: No Error Occurs 

DASL Doc: 90-98 12 GUL 1982 
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D$SC 


FUNCTION 


D$SC 


Can a SYSTEM CALL External Function 


Category: DASL External Function 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSINC 

Syntax : 0$SC (scnum) 

Result : DSCCODE 

Entry 1 : scnum BYTE; 

If Error : IF DSSC (...) && DSCFLAG THEN SERMSG (); 
Remarks : 

This externally defined DASL macro function will 
not be used by user programs. It is described for 
the purpose of understanding the DASL include files. 

D$SC is identical to DSCALL except that the 
argument of D$SC is a number (e.g. 1 thru 60 ) which 
is the defined number of a particular System Call, 
whereas DSCALL has an argument which is a pointer to 
a function type DSCALLF. 

Secondly, DSSC executes an SC (system call) to a 
non-user mode routine, where as DSCALL executes a normal 
CALL instruction in user mode. 

Otherwise the two functions use the Processor 
Register Variables and the DSCCODE byte (DSCC) 
in the same manner. 

See Also: DSCALL for calling externally defined subrouti 
DASL Doc: 90 March 1982 
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$DATETIM 


FUNCTION 


$DATETIM 


Convert System Time to Standard 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 30 

File : DJUFRGEN 


Syntax : JDATETIM (time, months, Astring) 

Result : BYTE (string length) 

Entry 1 : time A JTIME; System time, 5-byte 
Entry 2 : months A [12] [3] CHAR; Month-Name table 
* Exit 3: string A CHAR; DD MMM YYYY HH:MM 

If Error: No Error Occurs 

Remarks : Month name table previously read from utility 
message member or initialized by program. 

See Also: JGDATTIM. Both use CVSTIMEJ as subroutine. 
SPRM Ref: DATETIM$ Vol.2Sec. 8.7 


$DCLOSE FUNCTION $DCLOSE 

Direct Access, Close 
Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 30 

File : D$FAR 

Syntax : JDCLOSE (work, fob, mode) 

Result : DtCCODE 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 

Entry 2 : fcb A SFCBD; Link to file being closed 

Entry 3 : mode BYTE; Close mode ($CM... ) 

If Error: IF JDCLOSE (...) && DJCFLAG THEN JERMSG (); 

$ ERRC.$ FUNC = $FMS 

JERRC.SCODE = $ECFMS0,$ECFMS2,$ECFMS4,$ECFMS5 
Remarks : Flushes buffers if needed. 

SPRM Ref: JDCLOSE Vol.3Sec. 3.3.1.2 
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$DDEL 


FUNCTION 


$DDEL 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 


Entry 1 : 
Entry 2 : 
Entry 3 : 
* Exit 4: 

If Error: 


Remarks : 
SPRM Ref: 


Direct Random Access, Delete 


File Access Routine 

82 Jul 01 Updated : 83 Apr 02 

D$FAR 

$DDEL (work, fob, fp, ierr) 

DSCCODE 

varRslt := $DDEL (work, fob, fp, ierr); 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

work a [256] BYTE; Paged buffer, DSBUFn 
fcb a $FCBD; 

fp a SFILEPTR; 

err BYTE; $XCFMS01,$XCFMS02 

IF varRslt && DSCFLAG THEN $ERMSG (); 
$ERRC.$FUNC = $ FMS 

$ ERRC.$C0DE = $ ECFMSO,$ECFMS2,$ECFMS36 
Fills record with $LDEL characters 
$DDEL Vol.3 Sec. 3.3.3.3 
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$DDELCR 


FUNCTION 


$DDELCR 


Direct Sequential Access, Delete Current 

Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : 0$FAR 

Syntax : SDDELCR (work, fob, & err) 

Result : DSCCODE 

Assign : varRslt := SDDELCR (work, fob, ierr); 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

Entry 1 : work A [256] BYTE; Paged buffer, D$BUFn 
Entry 2 : fcb A $FCBD; 

* Exit 3: err BYTE; SXCFMS02, SXCFMS06 

If Error: IF varRslt && DSCFLAG THEN SERMSG (); 
SERRC4FUNC = $FMS 

SERRC.$C0DE = SECFMSO,SECFMS2,SECFMS36 
SPRM Ref: SDDELCR Vol.3Sec. 3.3.2.7 


$DECOHSI function $DECOHSI 

Environment, Decompress an HSI String 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DJUFRENV 

Syntax : SDEC0HSI (source, dest, idend) 

Result : DSCCODE 

Entry 1 : source A CHAR; 

Entry 2 : dest A CHAR; 

* Exit 3: dend A CHAR; 

If Error: IF SDEC0HSI (...) && DSZFLAG 
THEN HSI format invalid 
SPRM Ref: DEC0HSI $ Vol.2Sec. 2.13 
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DEFAULT 


FUNCTION 


DEFAULT 


Preceeds Statement in CASE for No-match Condition 
Category. DASL Control Word 

Entered : 82 Jul 01 Updated : 82 Dec 01 

Syntax : see CASE 

DASL Doc: 74 March 1982 


DEFINE FUNC tion DEFINE 

Define a String to be Substituted for Identifier 

Category: DASL Compiler Macro 

Entered : 82 Jul 01 Updated : 83 Jul 19 

Syntax : DEFINE (identifier,definitionstring) 

Result : null string 

plus substitution wherever identifier appears 
plus an optional value result 

Remarks : 

Evaluation suppression marks: #[ string #] 

Parameter definitions: #1, #2,...#9 

are used in DEFINE and other macro statements. 
See DASL DOCUMENT; section 8. Macros 

Assigning a value to a Macro function 
(like all of these RMS System Function 
interfaces) is done in a DEFINE statement. 

If the last argument in the DEFINE 
statement is NOT an assignment, but an 
expression (like a variable name or 
parameter), that value will be assigned 
to the Macro as a "resultant" value. 

DO NOT CONFUSE functions (which are a 
variable type with up to 13 parameters) and 
Macros which define functions (with up to 9 
parameters). BOTH are used in statements as 
callable functions. BOTH may have resultant 
values. Macros, however are used in other 
applications besides defining functions. 
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Remember that the word "function" 
basically means a verb; something that does 
something. We use the word function to mean: 

1. a DASL variable type, possibly 
combining DEFINED Macro calls with 
more code. 

2. an RMS System Call, UFR or FAR routine 
that has been interfaced with a DASL 
DEFINE definition. 

3. other uses of DEFINE to do things, 
like ENUM, SET, etc. 

4. DASL compiler defined words are listed 
in the FUNCTIONS section of this 
dictionary because they in fact have a 
"function" in the compile process. 

DASL Doc: 21,29-31,78-80 March 1982 


Document 61585-01 


FUNCTIONS 


43 



$DGETCRK 


FUNCTION 


$DGETCRK 


Direct Sequential Access, Get Current Record Key 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 


Syntax : SDGETCRK (work, fcb, fp, Serr) 

Result : DSCCODE 

Assign : varRslt := SDGETCRK (work, fcb, fp, &err); 
IF varRslt && DSZFLAG 
THEN ("err" has exception code); 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A $FCBD; 

Entry 3 : fp A SFILEPTR; 

* Exit 4: err BYTE; exception code SXCFMS06 

If Error: IF varRslt && D$CFLAG THEN $ERMSG (); 
$ERRC.$FUNC = $FMS 
SERRC.SCODE = $ECFMSO,SECFMS2 
SPRM Ref: SDGETCRK Vol.3Sec. 3.3.2.2 


$DGETNRK function $DGETNRK 

Direct Sequential Access, Get Next Record Key 
Category: File Access Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$FAR 

Syntax : $DGETNRK (work, fcb, fp) 

Result : DSCCODE 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A $FCBD; 

Entry 3 : fp A SFILEPTR; 

If Error : IF SDGETNRK (...) && DSCFLAG THEN $ERMSG (); 
SERRC.SFUNC = SFMS 
SERRC.SCODE = SECFMSO,SECFMS2 
SPRM Ref: SDGETNRK Vol.3Sec. 3.3.2.1 
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$DIOCLR 


FUNCTION 


$DIOCLR 


Direct Access, I/O Clear 


Category : File Access Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$FAR 

Syntax : SDIOCLR (work, fcb) 

Result : D$CCODE 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A $FCBD; 

If Error : IF SDIOCLR (...) && DSCFLAG THEN SERMSG (); 
SERRC.SFUNC = $FMS 
SERRC.SCODE = SECFMS0,$ECFMS2 
SPRM Ref: SDIOCLR 


$DISCONT 

Disconnect from Remote Node 


Vol.3 Sec. 3.3.1.3 


FUNCTION 


$DISCONT 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 | 

File : DSRMSIO 

Syntax : SDISCONT (envData) 

Result : DSCCODE 

Entry 1 : envData A CHAR; Names of net and node to | 

disconnect j 

If Error: IF SDISCONT (...) && DSCFLAG THEN SERMSG (); 

SERRC.SFUNC = SCSDISCONT | 

SERRC.SCODE = SECUMAV,$ ECS 1016,SECS 1017, | 

SECS 1021,SECS 1045,SECS 1050 | 

Remarks : Request will not be honored if any files are | 
open between nodes. j 
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$DISORT 


FUNCTION 


$DISORT 


Diminishing Increment In-Core Sort,( Ascendint 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRGEN 


Syntax : $DIS0RT (param) 

Result : none 


Entry 1 : param A JDISTBL; Table of fixed-length entries 

with fixed-length keys 

If Error: No Error Occurs 

SPRM Ref: DISORTS Vol.2Sec. 8.5 


$DISPCH 


FUNCTION 


$DISPCH 


Workstation-IF, Display One Character 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS 


Syntax : JDISPCH (hor, ver, char) 
Result : DSCCODE 


Entry 1 : hor BYTE; SWSLC ... 

Entry 2 : ver BYTE; $WSBL to ... (depends on WS type) 

Entry 3 : char CHAR; 

If Error: IF SDISPCH (...) && DJCFLAG THEN $ERMSG (); 
$ERRC.$FUNC = SC$WSI0 
SERRC.SCODE = $ EC_ 

Remarks : overhead of single character operations 
should be avoided 

See Also: SWSIO error codes. SWCONFIG for screen size. 
SPRM Ref: DISPCHS Vol.2Sec. 7.9 
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$DIVID3 


FUNCTION 


$DIVID3 


Numeric, Unsigned 24-bit Division 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 23 

File : D$UFRNUM 


Syntax : SDIVID3 (dvisor.dividend,&quotient,&remain) 
Result : DSCCODE 

Use : IF SDIVID3 (...) && DSZFLAG 

THEN (division by zero attempted); 


Entry 1 : dvisor ULONG; Divisor 
Entry 2 : dividend ULONG; Dividend 

* Exit 3: quotient ULONG; Quotient 

* Exit 4: remain ULONG; Remainder 


If Error: No Error Occurs 

SPRM Ref: DIVID3$ Vol.2Sec. 4.15 


$DLMCHEK function $DLMCHEK 

Workstation-IF, Check Character For a Delimiter 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 23 

File : D$UFRWS 

Syntax : $DLMCHEK (char) 

Result : DSCCODE 

Use : IF JDLMCHEK (char) && DJCFLAG 

THEN ("char" is a delimiter); 

Entry 1 : char CHAR; 

If Error: No Error Occurs 

Remarks : Checks character against standard delimiter 
table coded in nucleus 
SPRM Ref: DLMCHEKS Vol.2Sec. 7.10 
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$DONATFV 


FUNCTION 


$DONATFV 


Donate a FAV to a Specified Task 
Category: System Call 

Entered : 82 Dec 01 Updated : 84 Jul 25 |* 

File : D$RMSSPEC 

Syntax : SDONATFV (pfdb, name) 

Result : D$CCODE 

Entry 1 : pfdb A $PFDB; 

Entry 2 : name A SNAMET; 

If Error: IF JDONATFV (...) && DSCFLAG THEN $ERMSG ( ); 

$ERRC.$FUNC = SCSDONATV |* 

SERRC.SCODE = SECUMAV,SECSI001,JECSI010, |* 

SECDFV2 |* 
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$DOPEN 


FUNCTION 


$DOPEN 


Direct Access, Open 
Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$FAR 

Syntax : SDOPEN (work, fcb, mode, openpt) 

Result : DSCCODE 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A SFCBD; address of FCB 

Entry 3 : mode BYTE; open mode, SOM...(see SOPENENV) 

Entry 4 : openpt A SOPENPT; 

If Error : IF SDOPEN (...) && DSCFLAG THEN SERMSG (); 
SERRC.SFUNC = SFMS 

SERRC.SCODE = $ECFMS1,$ECFMS2,$ECFMS3,$ECFMS4, 
$ECFMS5,$ECFMS6,$ECFMS7,$ECFMS21, 
$ECFMS25,$ECFMS27,$ECFMS28,$ECFMS29, 
SECFMS35 

See Also: SOPENENV for Open Modes, Access Codes, 

Formats 

SPRM Ref: SDOPEN Vol.3Sec. 3.3.1.1 
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$DPOS 


FUNCTION 


$DPOS 


Direct Random Access, Position 
Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 

Syntax : $DP0S (work, fcb, fp, ierr) 

Result : D$CCODE 

Assign : varRslt := $DP0S (work, fcb, fp, ierr); 

IF varRslt && D$ZFLAG 
THEN ( "err" is exception code ); 

Entry 1 : work A [256] BYTE; Paged buffer, D$BUFn 
Entry 2 : fcb A $FCBD; 

Entry 3 : fp A $FILEPTR; 

* Exit 4: err BYTE; $XCFMS01,$XCFMS07 

If Error: IF varRslt && DJCFLAG THEN $ERMSG (); 
SERRC.SFUNC = $FMS 
$ERRC.$C0DE = $ ECFMSO,$ECFMS2 
SPRM Ref: $DP0S Vol.3Sec. 3.3.3.5 
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$DPOSEOF 


FUNCTION 


$DPOSEOF 


Direct Random Access, Position to End of File 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$FAR 


Syntax : SDP0SE0F (work, fcb) 

Result : DiCCODE 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A $FCBD; 

If Error: IF $DP0SE0F (...) && DSCFLAG THEN $ERMSG (); 
SERRC.SFUNC = $FMS 
SERRC.SCODE = SECFMS0,SECFMS2 
SPRM Ref: SDP0SE0F Vol.3Sec. 3.3.3.6 


$DPOSNX 


FUNCTION 


$DPOSNX 


Direct Sequential Access, Position to Next 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 


Syntax : SDPOSNX (work, fcb, &err) 

Result : DICCODE 

Assign : varRslt := JDPOSNX (work, fcb, Aerr); 

IF varRslt && DJZFLAG 

THEN ( "err" is exception code ); 

Entry 1 : work A [256] BYTE; Paged buffer, D$BUFn 
Entry 2 : fcb A $FCBD; 

* Exit 3: err BYTE; $XCFMS01 

If Error: IF varRslt && DSCFLAG THEN SERMSG (); 
SERRC.SFUNC = SFMS 
SERRC.SCODE = SECFMSO,SECFMS2 
SPRM Ref: SDPOSNX Vol.3Sec. 3.3.2.10 
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$DPOSPV 


FUNCTION 


$DPOSPV 


Direct Sequential Access, Position to Previous 


Category. File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 

Syntax : JDPOSPV (work, fcb, & err) 

Result : DSCCODE 

Assign : varRslt := SDPOSPV (work, fcb, ierr); 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A SFCBD; 

* Exit 3: err BYTE; $XCFMS01 

If Error : IF varRslt && DSCFLAG THEN SERMSG (); 

$ERRC. $FUNC = $FMS 
$ERRC.$C0DE = $ECFMS0,$ECFMS2 
SPRM Ref: $DP0SPV Vol.3Sec. 3.3.2.11 
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$DREAD 


FUNCTION 


$DREAD 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 


Entry 1 : 
Entry 2 : 
Entry 3 : 

* Exit 4: 

* Exit 5: 

If Error: 


SPRM Ref: 


Direct Random Access, Read 


File Access Routine 

82 Jul 01 Updated : 83 Apr 02 

D$ FAR 

JDREAD (work, fob, fp, ierr, Send) 

DSCCODE 

varRslt := $DREAD (work, fob, fp, ierr, iend) 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

work A [256] BYTE; Paged buffer, DSBUFn 
fcb A $FCBD; 
fp A SFILEPTR; 

err BYTE; $XCFMS01,SXCFMS02,SXCFMS07 
end A CHAR; last byte stored in user area 

IF varRslt && D$CFLAG THEN SERMSG (); 

SERRC. $FUNC = $FMS 

SERRC.$C0DE = $ECFMS0,SECFMS2,$ECFMS10 
SDREAD Vol.3 Sec. 3.3.3.1 
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$DREADCR 


FUNCTION 


$DREADCR 


Direct Sequential Access, Read Current 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 


Syntax : SDREADCR (work, fcb, Aerr, Aend) 

Result : DSCCODE 

Assign : varRsIt := $DREADCR (work, fcb, Aerr, Aend); 
IF varRslt && DSZFLAG 
THEN ( "err" is exception code ); 


Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A $FCBD; 

* Exit 3: err BYTE; $XCFMS02 $XCFMS06 

* Exit 4: end A CHAR; last byte stored in user area 


If Error: IF varRslt && DJCFLAG THEN SERMSG (); 
$ ERRC.$ FUNC = $FMS 

$ERRC.$C0DE = SECFMSO,$ECFMS2,SECFMS10 
SPRM Ref: SDREADCR Vol.3Sec. 3.3.2.5 
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$DREADNX 


FUNCTION 


$DREADNX 


Direct Sequential Access, Read Next 

Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSFAR 

Syntax : JDREADNX (work, fob, ierr, iend) 

Result : DSCCODE 

Assign : varRslt := SDREADNX (work, fob, ierr, iend); 
IF varRslt && DJZFLAG 
THEN ( "err" is exception code ) ; 

Entry 1 : work A [256] BYTE; Paged buffer, D$BUFn 
Entry 2 : fcb A $FCBD; 

* Exit 3: err BYTE; SXCFMS01 if EOF 

* Exit 4: end A CHAR; last byte stored in user area 

If Error: IF varRslt && DJCFLAG THEN SERMSG (); 
SERRCJFUNC = $ FMS 

$ ERRC.$ CODE = $ECFMS0,$ECFMS2,JECFMS10 
SPRM Ref: $DREADNX Vol.3Sec. 3.3.2.3 
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$DREADPV 


FUNCTION 


$DREADPV 


Direct Sequential Access, Read Previous 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSFAR 

Syntax : SDREADPV (work, fcb, ierr, Send) 

Result : DSCCODE 

Assign : varRslt : = SDREADPV (work, fcb, &err, Send); 
IF varRslt && DSZFLAG 
THEN ( "err" is exception code ); 


Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A SFCBD; 

* Exit 3: err BYTE; $XCFMS01 if Beginning of File 

* Exit 4: end A CHAR; last byte stored in user area 


If Error: 

SPRM Ref: 


IF varRslt 
SERRC.SFUNC 
SERRC.SCODE 
SDREADPV 


&& DSCFLAG THEN SERMSG (); 

= SFMS 

= $ECFMS0,$ECFMS2,SECFMS10 
Vol.3 Sec. 3.3.2.4 
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$DRWRT 


FUNCTION 


$DRWRT 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 


Entry 1 : 
Entry 2 : 
Entry 3 : 

* Exit 4: 

* Exit 5: 

If Error: 


Remarks : 
SPRM Ref: 


Direct Random Access, Rewrite 

File Access Routine 

82 Jul 01 Updated : 83 Jul 30 

D$ FAR 

$DRWRT (work, fcb, fp, & err. Send) 

DtCCODE 

varRslt := SDRWRT (work, fcb, fp, Serr, Send); 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

work A [256] BYTE; Paged buffer, D$BUFn 

fcb A $FCBD; 

fp A SFILEPTR; 

err BYTE; $XCFMS01,$XCFMS02 

end A CHAR; last byte read from user area 

IF varRslt && DJCFLAG THEN $ERMSG (); 

SERRC $FUNC = $FMS 

SERRC.SCODE = $ECFMS0,$ECFMS2,$ECFMS9,$ECFMS36 
Rewrites if record is already there. 

(no SDDEL required first) 

SDRWRT Vol.3 Sec. 3.3.3.4 
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$DRWRTCR 


FUNCTION 


$DRWRTCR 


Direct Sequential Access, Rewrite Current 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 


Syntax : SDRWRTCR (work, fcb, &err, &end) 

Result : DSCCODE 

Assign : varRslt := SDRWRTCR (work, fcb, & err, &end); 
IF varRslt && DSZFLAG 
THEN ( "err" is exception code ); 


Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A $FCBD; 

* Exit 3: err BYTE; $XCFMS02 $XCFMS06 

* Exit 4: end A CHAR; 


If Error: IF varRslt && DSCFLAG THEN $ERMSG ( ); 

$ ERRC. $FUNC = $FMS 

$ ERRC.$ CODE = $ECFMS0,$ECFMS2,$ECFMS9,$ECFMS36 
SPRM Ref: SDRWRTCR Vol.3 Sec. 3.3.2.8 
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$D WRITE 


FUNCTION 


$D WRITE 


Direct Random Access, Write 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 30 

File : D$FAR 


Syntax : $DWRITE (work, fob, fp, &err, &end) 

Result : D$CCODE 

Assign : varRslt := $DWRITE (work,fcb,fp,&err,&end); 
IF varRslt && D$ZFLAG 
THEN ( "err" is exception code ); 


Entry 1 : work 
Entry 2 : feb 
Entry 3 : fp 

* Exit 4: err 

* Exit 5: end 


A [256] BYTE; Paged buffer, D$BUFn 
A $FCBD; 

A SFILEPTR; 

BYTE; $XCFMS05 

A CHAR; last byte read from user area 


If Error: IF varRslt && DSCFLAG THEN $ERMSG (); 

$ ERRC.$ FUNC = $FMS 

SERRC.SCODE = SECFMSO,$ECFMS2,SECFMS9,SECFMS36 
Remarks : Old Record on disk must have $LDEL characters 
(from SDDEL) if before SLEOF to prevent 
accidental overwrite. 

SPRM Ref: $DWRITE Vol.3Sec. 3.3.3.2 
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SDWRITNX 


FUNCTION 


$DWRITNX 


Direct Sequential Access, Write Next at EOF 
Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Jul 30 

File : D$FAR 

Syntax : SDWRITNX (work, fcb, tend) 

Result : DSCCODE 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A $FCBD; 

* Exit 3: end A CHAR; last byte read from user area 

If Error: IF SDWRITNX (...) && DSCFLAG THEN SERMSG (); 

SERRC.SFUNC = SFMS 

SERRC.SCODE = SECFMS0,SECFMS2,SECFMS10,SECFMS3 
Remarks : Always writes a $LE0F. 

SPRM Ref: SDWRITNX Vol.3Sec. 3.3.2.6 


$DWRTEOF function $DWRTEOF 

Direct Sequential Access, Write End of File 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSFAR 


Syntax : SDWRTEOF (work, fcb) 

Result : DSCCODE 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 ; fcb A SFCBD; 

If Error: IF SDWRTEOF (...) && DSCFLAG THEN SERMSG (); 
SERRC.SFUNC = SFMS 

SERRC.SCODE = $ECFMS0,SECFMS2,SECFMS36 
SPRM Ref: SDWRTEOF Vol.3Sec. 3.3.2.9 
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ELSE 


FUNCTION 


ELSE 


Part of IF THEN ELSE Execution Control 


Category: DASL Control Word 

Entered : 82 Ju1 01 Updated : 82 Dec 01 

Syntax : see IF function 

DASL Doc: 73 March 1982 


ENTRY funct ion ENTRY 

Declare Global Name; may be Referenced Externally 

Category: DASL Declaration Word 

Entered : 82 Ju1 01 Updated : 82 Dec 01 

SYNTAX..: ENTRY name type [ := value ]; 

Remarks : May be used when defining variable (including 
function variables. 

DASL Doc: 56,75,76,77 March 1982 
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ENUM 


FUNCTION 


ENUM 


Define Variable Type BYTE; Define Values 0 thru 8 


Category: DASL Include Macro 

Entered : 82 Jul 01 Updated : 84 Jul 01 I' - 

File : D$INC 


Syntax : ENUM (argl, argi,...arg9) 

Result : BYTE 

Use : TYPDEF xvar ENUM (argl, arg2,...arg9) ; or 
xvar ENUM (argl, arg2,...arg9); 

Remarks : TYPDEF xvar ENUM (argl, arg2,...arg9) 

Equivalent to: 

TYPDEF xvar BYTE; 

DEFINE (argl,0) 

DEFINE (arg2,1) 

DEFINE (arg9,8) 

This defines "xvar" as a variable type BYTE 
and defines values 0 thru 8 to "argl" thru "arc 
which may be assigned to the variable "xvar." 

See Also: ENUMV for undefined types 

DASL Doc: 34,90 March 1982 
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ENUMV 


FUNCTION 


ENUMV 


Define Values Incrementing from Initial Value 

Category: DASL Include Macro 

Entered : 82 Jul 01 Updated : 83 Jul 30 

File : D$INC 

Syntax : ENUMV (initValue, argl, arg2 arg8) 

Result : none 


Remarks : Similar to ENUM except no type is defined. 
ENUMV (100, argl, arg2,....arg8) 

Equivalent to: 

DEFINE (argl,100) 

DEFINE (arg2,101) 

DEFINE (arg8,107) 

See Also: ENUM for variables with defined types 
DASL Doc: 34,90 March 1982 


$ENVDEL $ENVDEL 

Delete Existing Environment 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRENV 

Syntax : JENVDEL (name) 

Result : D$CCODE 

Entry 1 : name A $ENVN; 

If Error: IF $ENVDEL (...) && D$CFLAG THEN $ERMSG (); 
$ ERRC.$ FUNC = SUECNVD 

$ERRC.$C0DE = SUECENVl (no such environment) 
SPRM Ref: ENVDELJ Vol.2Sec. 2.2 
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$ENVFNDM 


FUNCTION 


$ENVFNDM 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
Entry 2 : 

* Exit 3: 

* Exit 4: 

If Error: 
SPRM Ref : 


Find Environment Data Match 


User Function Routine 

82 Jul 01 Updated : 83 Jul 19 

D$UFRENV 

SENVFNDM (mask, start, &env, &prev) 

DiCCODE 

mask A CHAR; 
start A A $ENVT; 
env A A SENVT; 
prey A A $ENVT; 

IF JENVFNDM (...) && DJCFLAG 
THEN (no match found ) 

ENVFNDM$ Vol.2 Sec. 2.8 
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$ENVINS 


FUNCTION 


$ENVINS 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Use : 


Entry 1 : 
Entry 2 : 
* Exit 3: 


If Error : 


Remarks : 
SPRH Ref: 


Insert New Environment 


User Function Routine 

82 Jul 01 Updated : 83 Apr 02 

DSUFRENV 

SENVINS ( env, after, ierr) 

DtCCODE 

IF SENVINS (env, after, ierr) && DJCFLAG 
THEN ("err" is error code) or SERMSG (); 

env A $ENVT; New environment entry 
after A $ENVN; Existing entry to precede new 
err BYTE; If Error: 

0 - invalid entry format 

1 - no such existing entry "after" 

2 - duplicate entry 

3 - UET memory overflow 

IF SENVINS (...) && DSCFLAG THEN SERMSG (); 

SERRC.$FUNC = SUECNVI 

SERRC.SCODE = SUECENVO,$UECENV1,$UECENV2, 

SUECENV3 

"err" codes same as SERRC.CODE 
ENVINSS Vol.2 Sec. 2.1 
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$ENVLGET 


FUNCTION 


$ENVLGET 


Obtain Environment Entry Length 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRENV 


Syntax : SENVLGET (env) 
Result : UNSIGNED 


Entry 1 : env A $ENVT; Name field of enviroment entry 


If Error: No Error Occurs 

SPRM Ref: ENVLGETS Vol.2Sec. 2.4 


$ENVLOC function $ENVLOC 


Locate Existing Environment 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSUFRENV 


Syntax : JENVLOC (name, ienv, iprior) 
Result : DSCCODE 


Entry 1 : name A SENVN; Name of entry to be located 

* Exit 2: env A A $ENVT; Link field in located env 

* Exit 3: prior A A $ENVT; Link field of prior env 

If Error: IF JENVLOC (...) && DSCFLAG THEN SERMSG (); 
$ ERRC.$ FUNC = SUECNVL 
SERRC.SCODE = SUECENVl (item not found) 

SPRM Ref: ENVLOCS Vo 1.2 Sec. 2.3 
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$ENVPDAT function $ENVPDAT 

Position to Environment Data Item in an Env Entry 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRENV 

Syntax : $ENVPDAT (env) 

Result : A CHAR 

Entry 1 : env A A $ENVT; Env entry link field (SENVLOC) 

If Error: No Error Occurs 

Remarks : Equivalent to $ENVPNET 

See Also: SENVPNET for positioning to net name 

SPRM Ref: ENVPDATS Vol.2Sec. 2.5 
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$ENVPEEL 


FUNCTION 


$ENVPEEL 


Prepare Open of Environment's Cataloc 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 May 03 

File : DSUFRENV 


Syntax : JENVPEEL (env, openpt, Send) 
Result : DSCCODE 


Entry 1 : env A A SENVT; Env entry link field $ENVL0C 
Entry 2 : openpt A SOPENPT; Specifies user area + PFDB 
* Exit 3: end A CHAR; Last byte stored in user area 


If Error : IF SENVPEEL (...) && D$CFLAG THEN $ERMSG ( ); 
$ERRC.$FUNC = $UECNVP 
$ERRC.$C0DE = SUECENVO 

Remarks : Useful prior to calling SOPENENV and then 
calls to JFILES for accessing files in the 
environment by file name. 

Prepares SOPENPT specified for SOPENENV: 

1. Copies all "env" data but lowest level HSI 
to SOPENPT.SOTENV A 

2. Copies lowest level HSI name in "env" 

to SOPENPT.SOTFILE A with spaces in extension. 
SPRM Ref: ENVPEELS Vol.2Sec. 2.7 
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$ENVPHSI 


FUNCTION 


$ENVPHSI 


Position to HSI Name in an Environment Entry 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRENV 

Syntax : JENVPHSI (env) 

Result : A CHAR 

Entry 1 : env A A $ENVT; 

If Error: No Error Occurs 

SPRM Ref: ENVPHSIS Vol.2Sec. 2.5 


$ENVPLOP punction $ENVPLOP 

Env, Position to UET Link In Open Parameter Table 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRENV 

Syntax : $ENVPL0P (openpt) 

Result : A A fENVT 

Entry 1 : openpt A $0PENPT; 

If Error: No Error Occurs 

SPRM Ref: ENVPL0P$ Vol.2Sec. 2.6 
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$ENVPNAM 


FUNCTION 


$ENVPNAM 


Position to Environment Name in an Env Entrv 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRENV 


Syntax : SENVPNAM (env) 
Result : A $ENVT 


Entry 1 : env A A $ENVT; 


If Error: No Error Occurs 

SPRM Ref: ENVPNAMJ Vol.2Sec. 2.5 


$ENVPNET ruNcrioN $ENVPNET 


Position to Net Name in an Environment Entn 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRENV 


Syntax : SENVPNET (env) 
Result : A CHAR 


Entry 1 : env A A JENVT; 


If Error: No Error Occurs 

See Also: SENVPDAT for positioning to data item 
SPRM Ref: ENVPNETS Vol.2Sec. 2.5 
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$ENVPNOD 


FUNCTION 


$ENVPNOD 


Position to Node Name in an Environment Entry 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DJUFRENV 

Syntax : SENVPNOD (env) 

Result : A CHAR 

Entry 1 : env A A $ENVT; 

If Error: No Error Occurs 

SPRM Ref: ENVPNODS Vol.2Sec. 2.5 


$ENVPPAS function $ENVPPAS 


Position to First Password in Environment Entrj 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRENV 


Syntax : $ENVPPAS (env) 
Result : A $PACKPH 


Entry 1 : env A A SENVT; 


If Error: No Error Occurs 

SPRM Ref: ENVPPASS Vol.2Sec. 2.5 
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$ENVPRES 


FUNCTION 


$ENVPRES 


Position to Resource Name in Environment Entry 


Category : User Function Routine 


Entered : 82 Jul 01 
File : DSUFRENV 

Updated : 

: 82 Dec 01 

Syntax : $ENVPRES 
Result : A CHAR 

(env) 


Entry 1 : env A A 

$ENVT; 


If Error : No Error 

Occurs 


SPRM Ref: ENVPRESS 

Vo 1.2 Sec. 2.5 


$ERMSG 

FUNCTION 

$ERMSG 


Display RMS Minimum Error Message 

Category : User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$RMS 


Syntax : $ERMSG () 

Result : Does not RETURN (goes to SERROR) 

If Error : No Error Occurs 

Remarks : The $ERRC 2 byte variable contains the 

Function and Error codes obtained from the 
previous function that was called and 
detected an error. 

SPRM Ref: ERMSGS Vol.2Sec. 3.3.4 
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$ERROR 


FUNCTION 


$ERROR 


Category: 
Entered : 
File : 

Syntax : 
Result : 

If Error: 
SPRM Ref: 


$EXIT 


Category: 
Entered : 
File : 

Syntax : 
Result : 

If Error: 
SPRM Ref: 


Abort a Program 

System Call 

82 Jul 01 Updated : 83 May 03 

0$ RMS 

$ERR0R () 

Does not RETURN 

No Error Occurs 

SERROR Vol.4 Sec. 4.4 


FUNCTION 


$EXIT 


Exit a Program 

System Call 

82 Jul 01 Updated : 83 Jul 19 

DSRMS 

$EXIT () 

Does not RETURN 

No Error Occurs 

SEXIT Vol.4 Sec. 4.3 
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EXTERN 


FUNCTION 


EXTERN 


Declare a Name Defined in Another Program Module 


Category: DASL Declaration Word 

Entered : 82 Jul 01 Updated : 82 Dec 01 


Syntax : EXTERN name type ; 

DASL Doc: 56,75,76,77 March 1982 


FAST 


FUNCTION 


FAST 


Future Code Generators; Var. Resides in Register 


Category: DASL Declaration Word 

Entered : 82 Jul 01 Updated : 83 Jul 30 


Syntax : FAST varName type ; 

Remarks : Also used by TRAP functions to declare 
TRAP routine code as FAST CODE. 


SFDPACK FUNCTION SFDPACK 

Numeric, Pack Two Decimal Numbers 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSUFRNUM 

Syntax : JFDPACK (first, second, ipacked) 

Result : DSC CODE 

Entry 1 : first CHAR; 

Entry 2 : second CHAR; 

* Exit 3: packed CHAR; 

If Error: IF JFDPACK (...) && DSCFLAG 
THEN (not packable); 

SPRM Ref: FDPACKS Vol.2Sec. 4.18 
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$FDUNPAK 


FUNCTION 


$FDUNPAK 


Numeric, Unpack Character Into Two ASCII Digits 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$UFRNUM 

Syntax : $FDUNPAK (packed, ifirst, Ssecond) 

Result : none 


Entry 1 : packed CHAR 

* Exit 2: first CHAR 

* Exit 3: second CHAR 


If Error: No Error Occurs 

SPRM Ref: FDUNPAKS Vol.2Sec. 4.19 
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$FILEFMT $FILEFMT 

Convert File Format Codes to 4-Byte ASCII String 
Category: User Function Routine 

Entered : 82 Ju1 01 Updated : 83 Jul 01 

File : DJUFRGEN 

Syntax : SFILEFMT (format, &string) 

Result : BYTE 

Entry 1 : format BYTE; File format code (SFFMT...) 

* Exit 2: string A CHAR; 4-Byte ASCII string 

If Error: No Error Occurs 

SPRM Ref: FILEFMTJ Vol.2Sec. 8.4 
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$$FILENAM function $$FILENAM 


Environment, Obtain the Next File Name in Cataloc 


Category. User Function Routine 

Entered : 82 Ju1 01 Updated : 83 Ju1 10 

File : DSUFRENV.. .also D$RMSI0 for SFILEINFO TYPDEF 


Syntax : $$FILENAM (Sfilelnfo) 

Result : DSCCODE 

Assign : varRslt := $$FILENAM (ifilelnfo); 

IF varRslt && D$CFLAG=0 & varRslt && D$ZFLAG=0 
THEN ("filelnfo" entry obtained); 

IF varRslt && D$CFLAG=0 & varRslt && D$ZFLAG 
THEN (no more files in catalog,catalog closed); 

* Exit 1: filelnfo A $FILEINF0; From $FILES($FILENAM) 


If Error : IF varRslt && DJCFLAG THEN JERMSG ( ); 

$ERRC.$FUNC = SCSFILES error in SFILES 
$ERRC.$FUNC = SUECFIL error in calling seq. 

$ ERRC.$C0DE = $UECFIL1,$UECFIL2 
Remarks : Call $$FILEPCN first to begin access to a new 
catalog. Then call $$FILENAM successively 
until the catalog is closed. Call SSFILEPCN 
to access another catalog. 

See Also : $$FILEPCN to see how to access catalog. 

SPRM Ref: FILENAM$ Vol.2Sec. 2.14.3 
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$$FILEPCN 


FUNCTION 


$$FILEPCN 


Environment, Open Catalog File and Obtain PCNs 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRENV 


Syntax : $$FILEPCN (env, start, end, &num) 

Result : DSCCODE 

Assign : varRslt := $$FILEPCN (env, start, end, inum); 

IF varRslt && D$CFLAG=0 & varRslt && D$ZFLAG=0 
THEN ("num" PCN's were obtained); 

IF varRslt && D$CFLAG=0 & varRslt && DSZFLAG 
THEN (no PCN's obtained; catalog empty); 

Entry 1 : env A A SENVT; UET entry link field 

Entry 2 : start A UNSIGNED; Start of PCN storage area 

2 bytes per PCN required 

Entry 3 : end A UNSIGNED; End of PCN storage area 

* Exit 4: num UNSIGNED; Number of PCN's obtained 


If Error: IF varRslt && DSCFLAG THEN $ERMSG (); 

SERRC.SFUNC = SCSOPENENV failure in SOPENENV 
$ERRC.$FUNC = SC$FILES SFILES(SFILEPCN) error 
SERRC.SFUNC = SUECFIL 
SERRC.SCODE = SUECFILO 
Remarks : Performs the following actions: 

1) SENVPEEL creates surrogate env to open cat 

2) SOPENENV on catalog 

3) SFILES in SFILEPCN mode to obtain all PCN's 

4) Sorts PCN's for optimum disk head position 

5) Sets initial values for calls to SSFILENAM 


NOTE: 

PCN's delivered are based on hashed value of 
the HSI level, thus non-members of the catalog 
may be delivered. Zero PCN's delivered does 
guarantee the catalog is empty. 

See Also: SSFILEPCU,SSFILENAM for obtaining next entry 
in catalog and alternative entry method. 

SPRM Ref: FILEPCNS Vol.2 Sec. 2.14.1 
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$$FILEPCU 


FUNCTION 


$$FILEPCU 


Environment, Special Entry to $$FILEPCN 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Ju1 10 

File : DJUFRENV 


Syntax : $$FILEPCU (pfdb, start, end, inum) 

Result : DSCCODE 

Assign : varRslt := $$FILEPCU (pfdb, start, end, Snum); 

IF varRslt && D$CFLAG=0 & varRslt && D$ZFLAG=0 
THEN ("num" PCN's were obtained); 

IF varRslt && D$CFLAG=0 & varRslt && DSZFLAG 
THEN (no PCN's obtained; catalog empty); 

Entry 1 : pfdb A $PFDB; Opened catalog file PFDB 
Entry 2 : start A UNSIGNED; Start of PCN storage area 
Entry 3 : end A UNSIGNED; End of PCN storage area 

* Exit 4: num UNSIGNED; Number of PCN's obtained 


If Error : IF varRslt && DSCFLAG THEN JERMSG (); 

$ERRC.$FUNC = SCSFILES $FILES($FILEPCN) error 
SERRC.$FUNC = $UECFIL 
SERRC.SCODE = $UECFIL0 

Remarks : May be used instead of $$FILEPCN when 
Catalog File is already opened. 

See Also: $$FILEPCN for opening Catalog File. 

SPRM Ref: FILEPCUJ Vol.2Sec. 2.14.2 
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$FILES 


FUNCTION 


$FILES 


Multi-Resource, Obtain Disk File Information 
Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 |* 

File : DSRMSIO 

Syntax : $FILES (mode, filesTbl) 

Result : DSCCODE 

Entry 1 : mode BYTE; $FILEPCN,$FILENAM,$FILECHK 

Entry 2 : filesTbl A SFILESTBL; Redefined PFDB 

If Error : IF $FILES (...) && DSCFLAG THEN $ERMSG ( ); 

$ ERRC.$ FUNC = SCSFILES 

$ERRC.SCODE = Single- and multi-file I* 

$ECUMAV,SECS 1001,$ECS 1005,$ECS 1010, |* 

SECS 1021,SECS 1034,SECS 1045 |* 

Multi-file only |* 

SECSI004,SECS 1007,SECS 1012,SECS 1014, |* 

SECS 1036,SECS 1038,SECS 1060 |* 

See Also: SGETSFI uses SFILES. See SENVPEEL for 
preparing environment prior to usage. 

SPRM Ref: SFILES Vol.4Sec. 8.4.4 

SPRM Ref: SFILESTBL Vol .4 Sec. 2.2.3 SPRM 

SPRM Ref: FILESS Vol.2 Sec. 2.14 SPRM 
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$FORMAT 


FUNCTION 


$FORMAT 


Multi-Resource, Format a Unit on the Disk 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 | 

File : DSRMSIO 

Syntax : SFORMAT (pfdb) 

Result : DSCCODE 


Entry 1 : pfdb A $PFDB; 

If Error: IF $FORMAT (...) && DSCFLAG THEN SERMSG ( ); 

$ ERRC. $ FUNC = SCSFORMAT 

SERRC.$C0DE = All resources I 

SECUMAV,$ ECS 1001,$ECS 1002,SECS 1003, | 

SECS 1004,SECS 1005,$ECS1007,SECS 1010, | 

SECSI017,SECSI039 | 

Disk resources I 

SECS 1006,SECS 1009,SECS 1015,SECS 1016, | 

SECS 1018,SECS 1045,SECS 1046,SECS 1058 | 

Tape resources I 

SECS 1006,SECS 1009,SECS 1016,SECS 1018, | 

SECS 1046 | 

SPRM Ref: SFORMAT Vol.4 Sec. 8.5.8 
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$FSCAN 


FUNCTION 


$FSCAN 


Cmdlnt, Compress a SFILESPK 
Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 23 

File : D$UFRSCAN 

Syntax : $FSCAN (sfent, output) 

Result : BYTE 


Entry 1 : sfent A SNAMET; 

Entry 2 : output A CHAR; 

If Error : No Error Occurs 

Remarks : extracts name, extension, and environmment 
from FILE SPECIFICATION TABLE, compresses 
into single string, ready to insert into 
messages or display headings. 

SPRM Ref: FSCAN$ Vol.2Sec. 6.1.4 


$GDATTIM function $GDATTIM 

Obtain Current ASCII Date/Time String 
Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : 0$UFRGEN 

Syntax : SGDATTIM (months, istring) 

Result : BYTE 

Entry 1 : months A [12] [3] CHAR; Month-Name Table 

* Exit 2: string A CHAR; DO MMM YYYY HH:MM 

If Error : No Error Occurs 

See Also: SDATETIM. Both Use CVSTIMES as subroutine 
SPRM Ref: GDATTIM$ Vol.2Sec. 8.8 
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$GENSMSK 


FUNCTION 


$GENSMSK 


Cmdlnt, Generate Generic Scanning Masks 


Category: User Function Routine 

Entered : 82 Jul 01 Updated 

File : DSUFRSCAN 

: 83 Apr 23 

Syntax : SGENSMSK (input, output) 

Result : DfCCODE 


Entry 1 : input A SNAMEEXTENV; 

Entry 2 : output A SNAMEEXTENV; 


If Error: IF SGENSMSK (...) 44 DSCFLAG 

THEN (invalid masks); 

Remarks : generates internal tables for name scanning 
SPRM Ref: GENSMSKS Vol.2 Sec. 6.6.1 

SGENSTST FUNCTION 

SGENSTST 


Command Int., Name Test-Under-Mask and Generate 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 


Entry 1 : 
* Exit 2: 

If Error: 

Remarks : 

SPRM Ref: 


User Function Routine 

82 Jul 01 Updated : 83 Apr 23 

D$UFRSCAN 

$GENSTST (file, ioutput) 

DtCCODE 

varRslt : = $GENSTST (file, Soutput); 

IF varRslt 44 D$CFLAG=0 & varRslt 44 D$ZFLAG=0 
THEN (no match; test failed); 

IF varRslt 44 D$CFLAG=0 4 varRslt 44 DSZFLAG 
THEN (match; test succesful); 

file A SNAMEEXTENV; 
output A SNAMEEXTENV; 

IF varRslt 44 DSCFLAG 

THEN (illegal output name generated); 

tests a single complete file name. If previous 

call to SGENSMSK specified output mask, then 

will generate output name...further calls to 

SGENSMSK will generate new masks to test 

GENSTSTS Vol 2 Sec. 6.6.2 
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$GETCHN 


FUNCTION 


$GETCHN 


Workstation-IF, Get Response from CHAIN File / WS 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Jul 01 | 

File : DSUFRWS (also D$RMSWS for SWSIOMODE TYPDEF) 

Syntax : $GETCHN (line, mode, ilength, ihor, Aver) 

Result : DfCCODE 


Entry 1 
Entry 2 
Entry 3 
Entry 4 
Entry 5 

* Exit 3 

* Exit 4 

* Exit 5 


line A CHAR; Pointer to input area 

mode BYTE; SWSIOMODE: $WSM.... 

length BYTE; Input area (1 for $WSENTK) 

hor BYTE; Initial hor curs pos(SWSLC) 

ver BYTE; Initial ver curs pos($WSBL-x) 

length BYTE; Initial length - keys input 

hor BYTE; cursor position of $WSENTK 

ver BYTE; cursor position of SWSENTK 


If Error: IF $GETCHN (...) && DSCFLAG THEN $ERMSG( ); | 

$WS 1 0 errors result in call to $ERMSG. j 

See Also: SGETLINE for other workstation Get Response 
$WC0NFIG for screen size. 

SPRM Ref: GETCHNS Vo 1.2 Sec. 7.4 
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$GETCHTO function $GETCHTO 

Workstation-IF, Timeout for GETCSTK$ and GETCHNS 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS (also DSRMSWS for SWSI0M0DE TYPDEF) 

Syntax : SGETCHTO (line, mode, Slength, Ahor, Aver) 
Result : D$CCODE 

Entry 1 : line A CHAR; Pointer to input area 

Entry 2 : mode BYTE; $W5IOMODE: SWSM.... 

Entry 3 : length BYTE; Input area (1 for SWSENTK) 

Entry 4 : hor BYTE; Initial hor curs pos($WSLC) 

Entry 5 : ver BYTE; Initial ver curs pos(SWSBL-x) 

* Exit 3: length BYTE; Initial length - keys input 

* Exit 4: hor BYTE; cursor position of SWSENTK 

* Exit 5: ver BYTE; cursor position of SWSENTK 

If Error: IF SGETCHTO (...) && DSCFLAG THEN $ERMSG(); 

SWSIO errors result in call to SERMSG. 

See Also: SGETLINE for error messages 
SWCONFIG for screen size. 

SPRM Ref: GETCHTOS Vol.2Sec. 7.7 
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$GETCSTK function $GETCSTK 

Workstation-IF, Get Response from Command Stack / WS 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
Entry 2 : 
Entry 3 : 
Entry 4 : 
Entry 5 : 

* Exit 3: 

* Exit 4: 

* Exit 5: 

If Error: 
See Also: 
SPRM Ref: 


User Function Routine 

82 Jul 01 Updated : 83 Jul 01 

D$UFRWS (also D$RMSWS for SWSI0M0DE TYPDEF) 

JGETCSTK (line, mode, &length, &hor, Aver) 
D$CCODE 

line A CHAR; Pointer to input area 

mode BYTE; SWSI0M0DE: $WSM.... 

length BYTE; Input area (1 for SWSENTK) 

hor BYTE; Initial hor curs pos(SWSLC) 

ver BYTE; Initial ver curs pos(SWSBL-x) 

length BYTE; Initial length - keys input 

hor BYTE; cursor position of SWSENTK 

ver BYTE; cursor position of SWSENTK 

IF SGETCSTK (...) && DSCFLAG THEN $ERMSG( ); 

SWSIO errors result in call to SERMSG. 
SGETLINE for error messages. 

SWCONFIG for screen size. 

GETCSTKS Vol.2 Sec. 7.4 
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$GETCSTO 


$GETCSTO 


FUNCTION 


Workstation-IF, Timeout for GETCSTK$ and GETCHN$ 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS (also D$RMSWS for $WSI0M0DE TYPDEF) 

Syntax : $GETCST0 (line, mode, Slength, ihor. Aver) 
Result : DSCCODE 


Entry 1 : line A 
Entry 2 : mode 
Entry 3 : length 
Entry 4 : hor 
Entry 5 : ver 

* Exit 3: length 

* Exit 4: hor 

* Exit 5: ver 


CHAR; Pointer to input area 
BYTE; $WSI0M0DE: SWSM.... 

BYTE; Input area (1 for SWSENTK) 
BYTE; Initial hor curs pos($WSLC) 
BYTE; Initial ver curs pos(SWSBL-x) 
BYTE; (Initial length)-(keys input) 
BYTE; cursor position of $WSENTK 
BYTE; cursor position of SWSENTK 


If Error : IF SGETCSTO (...) && DSCFLAG THEN $ERMSG(); 

SWSIO errors result in call to SERMSG. 

See Also: SGETLINE for error messages. 

SWCONFIG for screen size. 

SPRM Ref: GETCSTOS Vol.2Sec. 7.7 
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$GETIME 


FUNCTION 


$GETIME 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 

Entry 2 : 

If Error: 

Remarks : 

SPRM Ref: 


Obtain Current System Time 
System Cal 1 

82 Jul 01 Updated : 84 Aug 08 | 

DSRMSGEN 

SGETIME (dest, utc) 

DtCCODE 

dest A $SYSTIME; 6 bytes,(seconds since 

beginning 1901, & 8ms.ctr) 
utc BOOLEAN; Use Alternate SC if TRUE 

IF SGETIME (...) && DSCFLAG THEN $ERMSG (); 
SERRC.SFUNC = SCSGETIME 
SERRC4C0DE = JECUMAV 

When you use the alternate System Call, you | 

must use the following syntax: j 

SGETIME (< A SSYSTIME> dest, TRUE) I 

where: j 

dest is a A SSYSTINFO | 

SGETIME Vol.4 Sec. 3.1 
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$GETLINE 


FUNCTION 


$GETLINE 


Workstation-IF, Get Response from Stack, CHAIN, or WS 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRWS (also D$RMSWS for $WSI0M0DE TYPDEF) 

Syntax : JGETLINE (line, mode, Alength, Ahor, Aver) 
Result : DSCCODE 


Entry 1 : 
Entry 2 : 
Entry 3 : 
Entry 4 : 
Entry 5 : 

* Exit 3: 

* Exit 4: 

* Exit 5: 


line A CHAR; Pointer to input area 

mode BYTE; $WSI0M0DE: $WSM.... 

length BYTE; Input area (1 for $WSENTK) 

hor BYTE; Initial hor curs pos(SWSLC) 

ver BYTE; Initial ver curs pos(JWSBL-x) 

length BYTE; Initial length - keys input 

hor BYTE; cursor position of $WSENTK 

ver BYTE; cursor position of $WSENTK 


If Error: IF JGETLINE (...) && DJCFLAG THEN $ERMSG(); 

$ ERRC.$ FUNC = $UECCHN 

$ERRC.$C0DE = SUECCHNO,JUECCHN1 

$ ERRC.$ FUNC = JUECGLN 

$ ERRC.$C0DE = $UECGLN0,$UECGLN1,$UECGLN2 

$ERRC.$FUNC = SCSOPENENV 

THEN (error during LOG or CHAIN file open) 

$ ERRC. $ FUNC = SCJSECR or SCJSECW 
THEN (error during CHAIN or LOG I/O) 

$WS10 errors result in call to $ERMSG 
See Also: $GETCHN,$GETCHTO,$GETCSTK,$GETCSTO,JGETLINE, 

$GETLNTO,$KEYIN,$KEYINTO for other Workstation 
response gathering. JWCONFIG for screen size. 
SPRM Ref: GETLINEJ Vol.2Sec. 7.2 
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$GETLNTO function $GETLNTO 

Workstation-IF, Timeout Controlled Version of SGETLINE 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
Entry 2 : 
Entry 3 : 
Entry 4 : 
Entry 5 : 

* Exit 3: 

* Exit 4: 

* Exit 5: 

If Error: 
See Also: 
SPRM Ref: 


User Function Routine 

82 Jul 01 Updated : 83 Jul 01 

DSUFRWS (also DJRMSWS for SWSI0M0DE TYPDEF) 

JGETLNTO (line, mode, ilength, &hor, &ver) 
DSCCODE 

line A CHAR; Pointer to input area 

mode BYTE; SWSI0M0DE: $WSM.... 

length BYTE; Input area (1 for $WSENTK) 

hor BYTE; Initial hor curs pos($WS.L) 

ver BYTE; Initial ver curs pos(SWSBL-x) 

length BYTE; (Initial length)-(keys input) 

hor BYTE; cursor position of $WSENTK 

ver BYTE; cursor position of SWSENTK 

IF $GETLNT0 (...) && DSCFLAG THEN $ERMSG(); 

$WSI0 errors result in call to SERMSG. 
JGETLINE for error messages 
$WC0NFIG for screen size. 

GETLNTOS Vol.2 Sec. 7.5 
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SGETPASS 


FUNCTION 


$GETPASS 


Environment; Obtain, Compress Password from Keyin 

Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRENV 

Syntax : SGETPASS (output, hor, ver, Sinvalid) 

Result : D$CCODE 

Assign : varRslt := $GETPASS ( output,hor,ver,Sinvalid); 

IF varRslt && D$CFLAG=0 & varRslt && D$ZFLAG=0 
THEN (valid password entered); 

IF varRslt && D$CFLAG=0 & varRslt && DJZFLAG 
THEN (null password entered); 


Entry 1 : output 
Entry 2 : hor 
Entry 3 : ver 
* Exit 4: invalid 


A SPACKPW; 

BYTE; Initial hor curs pos(SWSLC) 
BYTE; Init ver curs pos(JWSBL-x) 

A CHAR; 


If Error : IF varRslt && DSCFLAG THEN (invalid 
password entered); 

See Also: $WC0NFIG for screen size. 

SPRM Ref: GETPASSS Vol.2Sec. 2.9 
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$GETSFI 


FUNCTION 


$GETSFI 


Obtain Symbolic File Identification 
Category: System Call 

Entered : 82 Jul 01 Updated : 84 Aug 08 

File : D$RMS10 

Syntax : SGETSFI (filesTbl) 

Result : DSCCODE 

Entry 1 : filesTbl * SFILESTBL; Redefined $PFDB 

If Error: IF SGETSFI (...) && DSCFLAG THEN SERMSG ( ); 
$ ERRC.$ FUNC = SCSFILES 
$ERRC.$C0DE = $ ECUMAV,SECS 1001,SECS 1005, 
SECSI010 


Remarks : useful for obtaining symbolic names & HSIs, 

1* 

after an 

error is detected, for use in 

1* 

message 

display 



1* 

See Also: Calls SFILES with mode SFILEGET 



SPCRFIEI 

and SSFITABLE 

in TYPDEF 

for table 

bui 

SPRM Ref: JGETSFI 

Vol.4 Sec. 

7.4.2 



SPRM Ref: SGETSFI 

Vol.4 Sec. 

8.4.3 



SPRM Ref: SGETSFI 

Vol.4 Sec. 

9.1.1.4 



SPRM Ref: SGETSFI 

Vol.4 Sec. 

9.2.1.2 



SPRM Ref: SGETSFI 

Vol.4 Sec. 

9.3.1.2 



SPRM Ref: SGETSFI 

Vol.4 Sec. 

9.4.1.2 



SPRM Ref: SGETSFI 

Vol.4 Sec. 

10.1.2 
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$GLUTEN 


FUNCTION 


$GLUTEN 


Get Last User Task Error Number 


Category : System Call 

Entered : 82 Jul 01 Updated : 83 May 03 

File : DSRMSPROG 


Syntax : JGLUTEN (iluten, itranPsk, itranTb) 
Result : D$CCODE 

* Exit 1: luten BYTE; Error codes $UTE... 

* Exit 2: tranPsk BYTE; 

* Exit 3: tranTb * [128] CHAR; 

If Error : No Error Occurs 

SPRM Ref: % GLUTEN Vol.4Sec. 4.5.8 


GOTO FUNCTION GOTO 

Transfer Control to Labled Statement in Same Func 


Category: DASL Control Word 

Entered : 82 Jul 01 Updated : 82 Dec 01 

Syntax : GOTO identifier;...identifier : statement; 
DASL Doc: 74,75 March 1982 
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$ I CLOSE 


FUNCTION 


$ICLOSE 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
Entry 2 : 
Entry 3 : 

If Error : 


SPRM Ref: 


ISAM, Close 


File Access Routine 

82 Jul 01 Updated : 83 Jul 01 

DSFAR 

SICLOSE (work, fob, mode) 

DSCCODE 

work A [256] BYTE; Paged buffer, DSBUFn 
fcb A SFCBIS; 

mode BYTE; close mode ($CM...) 

IF SICLOSE (...) && DSCFLAG THEN SERMSG (); 
SERRC.SFUNC = $FMS 

$ERRC.$C0DE = $ECFMS0,$ECFMS2,$ECFMS4, 
SECFMS5,$ECFMS6 

SICLOSE Vol.3 Sec. 4.3.1.3 
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$IDEL 


FUNCTION 


$IDEL 


ISAM Random, Delete 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 

Syntax : $IDEL (work, fob, ierr) 

Result : DSCCODE 

Assign : varRslt := $IDEL (work, fcb, ierr); 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 

Entry 2 : fcb A $ FC BIS; 

* Exit 3: err BYTE; $XCFMS01,$XCFMS02,$XCFMS03 

If Error: IF varRslt && DJCFLAG THEN $ERMSG (); 

$ ERRC.$ FUNC = $FMS 

$ ERRC.$C0DE = SECFMSO,$ECFMS2,SECFMS14, 
$ECFMS36,$ECFMS38 
$ERRC.$FUNC = SLR I SAM 
$ERRC.$C0DE = SECLI022,SECLI024 
SPRM Ref: $ I DEL Vol.3Sec. 4.3.3.3 
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$IDELCR 


FUNCTION 


$IDELCR 


ISAM Sequential, Delete Current Record Key, Data 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSFAR 


Syntax : SIDELCR (work, fob, ierr) 

Result : D$CCODE 

Assign : varRslt := JIDELCR (work, feb, ierr); 

IF varRslt && DJZFLAG 

THEN ( "err" is exception code ); 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : feb A SFCBIS; 

* Exit 3: err BYTE; SXCFMS01,SXCFMS02,SXCFMS07 


If Error: IF varRslt && DSCFLAG THEN SERMSG (); 

$ ERRC.$ FUNC = $FMS 

$ERRC.$C0DE = $ ECFMSO,$ ECFMS2,$ECFMS36, 
$ECFMS38 
SERRC.SFUNC = $LRI SAM 
$ERRC.$C0DE = SECLI022 
SPRM Ref: SIDELCR Vol.3Sec. 4.3.2.4 
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$IDELK 


FUNCTION 


$IDELK 


ISAM Random, Delete Record's Key 

Category : File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSFAR 

Syntax : SIDELK (work, fcb, &err) 

Result : DSCCODE 

Assign : varRslt := SIDELK (work, fcb, ierr); 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

Entry 1 : work A [256] BYTE; Paged buffer, D$BUFn 
Entry 2 : fcb A $FCBIS; 

* Exit 3: err BYTE; SXCFMS03 

If Error : IF varRslt && DSCFLAG THEN JERMSG (); 

$ ERRC. $ FUNC = $FMS 

SERRC.SCODE = $ECFMS0,$ECFMS2,$ECFMS14, 
SECFMS38 
SERRC.$ FUNC = SLR I SAM 
SERRC.SCODE = SECLI022,SECLI024 
SPRM Ref: SIDELK Vol.3Sec. 4.3.3.4 
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IF 


FUNCTION 


IF 


Execute THEN Statement if Expression Non-zero, etc 


Category : DASL Control Word 

Entered : 82 Jul 01 Updated : 83 Oul 19 


Syntax : IF expression THEN statement 
[ ELSE statment ]; 
also: 

IF expression THEN { 
statement; 
statement; 

} (No semicolon) 

ELSE { 
statement; 
statement; 

}; (Semicolon) 


DASL Doc: 73 


March 1982 


IFELSE FUNCTION IFELSE 

If First 2 Strings are Equal Result is 3rd,Else 4 
Category : DASL Compiler Macro 

Entered : 82 Jul 01 Updated : 83 Oul 10 

Syntax : IFELSE (strgl,strg2,equalStrg,unequalStrg) 
Result : string 

See Also: DEFINE for evaluation suppression marks 
and parameter definitions 
DASL Doc: 21,29,33,80 March 1982 
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$11 NS 


FUNCTION 


$11 NS 


Category: 
Entered : 
File 

Syntax : 
Result : 
Assign : 


Entry 1 : 
Entry 2 : 
* Exit 3: 

If Error: 


SPRM Ref : 


ISAM Random, Insert 


File Access Routine 

82 Jul 01 Updated : 83 Apr 02 

DSFAR 

$1 INS (work, fob, ierr) 

DSCCODE 

varRslt := SUNS (work, fob, ierr); 

IF varRslt && DJZFLAG 

THEN ( "err" is exception code ); 

work A [256] BYTE; Paged buffer, DSBUFn 

fcb A $FCBIS; 

err BYTE; SXCFMS04 

IF varRslt && DJCFLAG THEN SERMSG (); 
tFRor triiNr - tFM«; 

SERRC!SCODE = $ECFMS0,$ECFMS2,$ECFMS14, 
$ECFMS38 
$ ERRC.$ FUNC = $LRI SAM 
$ERRC.SCODE = $ECLI020,$ECLI022,$ECLI024 
SIINS Vol.3 Sec. 4.3.3.5 
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SIIOCLR 


FUNCTION 


$IIOCLR 


ISAM, I/O Clear 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$FAR 

Syntax : SIIOCLR (work, fcb) 

Result : DSCCODE 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A SFCBIS; 

If Error : IF SIIOCLR (...) && DSCFLAG THEN SERMSG (); 
$ERRC.$FUNC = $ FMS 
SERRC.SCODE = $ECFMS0,SECFMS2 
SPRM Ref: SIIOCLR Vol.3Sec. 4.3.1.4 
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INCLUDE 


FUNCTION 


INCLUDE 


Obtain 

Category: 
Entered : 

Syntax : 
Remarks : 


DASL Doc: 

I NCR 

Produce 

Category: 
Entered : 

Syntax : 
Result : 

See Also: 

DASL Doc: 


Program Input Lines from Specified File 

DASL Compiler Macro 

82 Jul 01 Updated : 83 Jul 19 

INCLUDE (fileSpec) 

Similar to the use of INCLUDE in SNAP but 
the syntax is different; 

In DASL parentheses are required to mark 
the argument of the macro. 

The order in which files are included must 
maintain upward visibility; variables and 
values defined in other include files must 
be included BEFORE files in which they are 
referenced. 


1,2,8-10,29,82 March 1982 


FUNCTION 

a Value by Increments 

DASL Compiler Macro 
82 Jul 01 

INCR (number) 

decimal number string 

DEFINE for evaluation 
and parameter definit 
29,31,32,80-81 


I NCR 

the Argument by 1 


Updated : 83 Jul 10 


suppression marks 
ons 

March 1982 
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$INFO 


FUNCTION 


$INFO 


Obtain System Configuration Information 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 |* 

File : DSRMSGEN 


Syntax : $ INFO (mode, dest, max, netnode, Send, Srem) 
Result : D$CCODE 


Entry 1 : mode BYTE; $ INFO modes 


Entry 2 : dest A SINFOITEM; Output area 

Entry 3 : max BYTE; Maximum items to return 

Entry 4 : netnode A CHAR; Net & Node name string 

* Exit 5: end A SINFOITEM; Past Last Item 

remaining 

* Exit 6: rem BYTE; Number of items remaining 


If Error: IF SINFO (...) && DSCFLAG THEN $ERMSG (); 
SERRC.SFUNC = SC$INFO 

$ERRC.$COOE = SECUMAV,$ECS 1016,$ ECS 1021, |* 

SECS 1028,SECS 1034,SECS 1035,SECS 1036, |* 

SECSI045,$ECSI055 |* 

Remarks : Used to obtain information and symbolic 
names associated with: Node, Resources, 

Resource Connection Link, Task, Controller 
Variables, Resource Utilization Data, 

System Startup Time, 

Name Delimiter Characters. 

SINFO Modes: &f s- ^ ©/-> 

^SILINKND, $ILINKAL, SINODEND, SINODEAL, 

°>r SIMYNODE, $IRSFND,-^SIRSFAL / IRMFND, a* 
SIRMFAL, SITASKND, SITASKAL, SITASKME,^ 

© SISTARTT ~' 0 


SPRM Ref: SINFO Vol.4Sec. 3.4 
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$IOPEN 


FUNCTION 


$IOPEN 


Category: 
Entered : 
File 

Syntax : 
Result : 

Entry 1 : 
Entry 2 : 
Entry 3 : 
Entry 4 : 
Entry 5 : 

If Error: 


See Also: 
SPRM Ref: 


ISAM, Open 

File Access Routine 

82 Jul 01 Updated : 83 Jul 01 

D$ FAR 

$ I OPEN (work, fob, mode, openpt, name) 

DSCCODE 

work A [256] BYTE; Paged buffer, D$BUFn 

fob A $FCBIS; 

mode BYTE; $0M... 

openpt A SOPENPT; 

name A SNAMEEXTENV; 

IF $IOPEN (...) && DSCFLAG THEN JERMSG (); 

$ ERRC.$ FUNC = $FMS 

$ ERRC.SCODE = $ECFMS1,$ECFMS2,$ECFMS3, 
$ECFMS4,$ECFMS5,$ECFMS6,$ECFMS7, 
$ECFMS11,$ECFMS12,$ECFMS13,$ECFMS19, 

$ ECFMS20,SECFMS 21,$ ECFMS 2 7 
$0PENENV for Open Modes, Access Codes, 
Formats 

$ I OP EN Vol.3 Sec. 4.3.1.1 
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$IPOS 


FUNCTION 


$IPOS 


ISAM Random, Position 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 

Syntax : $IP0S (work, fob, ierr) 

Result : DSCCODE 

Assign : varRslt := $ IPOS (work, fob, ierr); 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fob A $ FOBI S; 

* Exit 3: err BYTE; $XCFMS01,$XCFMS03,$XCFMS07 

If Error : IF varRslt && DSCFLAG THEN SERMSG (); 
SERRC.SFUNC = $ FMS 

$ERRC.$C0DE = $ECFMS0,SECFMS2 

SERRC.SFUNC = SLRIASM 

SERRC.SCODE = SECL1022,SECL1024 

SPRM Ref: SIPOS Vol.3Sec. 4.3.3.7 
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$IPOSKP 


FUNCTION 


$!POSKP 


ISAM Sequential, Position to Key Previous 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 


Syntax : SIPOSKP (work, fob, &err) 

Result : DSCCODE 

Assign : varRslt := SIPOSKP (work, fob, &err); 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A SFCBIS; 

* Exit 3: err BYTE; SXCFMS01 SXCFMS07 

If Error: IF varRslt && DSCFLAG THEN SERMSG (); 
SERRC.SFUNC = $FMS 
SERRC.SCODE = SECFMSO,SECFMS2 
SERRC.SFUNC = SLR I SAM 
SERRC.SCODE = SECLI022 
SPRM Ref: SIPOSKP Vol.3Sec. 4.3.2.7 
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$IPOSKS 


FUNCTION 


$IPOSKS 


ISAM Position to Next Key Sequential Record 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 

Syntax : SIPOSKS (work, fob, Herr) 

Result : D$CCODE 

Assign : varRslt := SIPOSKS (work, fcb, ierr); 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

Entry 1 : work A [256] BYTE; Paged buffer, D$BUFn 
Entry 2 : fcb A $FCBIS; 

* Exit 3: err BYTE; $XCFMS01,$XCFMS02,$XCFMS07 

If Error: IF varRslt && DJCFLAG THEN $ERMSG (); 

$ ERRC.$ FUNC = $FMS 
SERRC.SCODE = $ECFMSO,$ECFMS2 
SERRCJFUNC = SLR I SAM 
SERRC.SCODE = S ECL1022 
SPRM Ref: SIPOSKS Vol.3 Sec. 4.3.2.6 
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$IPREP 


FUNCTION 


$IPREP 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
Entry 2 : 
Entry 3 : 
Entry 4 : 

If Error : 


SPRM Ref: 


ISAM, Prepare File 

File Access Routine 

82 Jul 01 Updated : 82 Dec 01 

D$FAR 

$IPREP (work, fob, openpt, name) 

DSCCODE 

work A [256] BYTE; Paged buffer, D$BUFn 

fob A SFCBIS; 

openpt A JOPENPT; 

name A JNAMEEXTENV; 

IF SIPREP (...) && DSCFLAG THEN SERMSG (); 

$ ERRC.$FUNC = $FMS 

$ ERRC.SCODE = $ECFMS1,$ECFMS2,$ECFMS3, 

$ ECFMS4,$ECFMS5,$ ECFMS6,$ ECFMS 7, 

$ ECFMS11,$ ECFMS12,$ ECFMS13,SECFMS19, 

$ECFMS20,$ECFMS21,SECFMS39,JECFMS40 
$ I PREP Vol.3 Sec. 4.3.1.2 
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$IREAD 


FUNCTION 


$IREAD 


ISAM Random, Read 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 


Syntax : $IREAD (work, fob, &err, Send) 

Result : DtCCODE 

Assign : varRslt := SIREAD (work, fcb, ierr, Send); 
IF varRslt && DSZFLAG 
THEN ( "err" is exception code ); 


Entry 1 : work 
Entry 2 : fcb 

* Exit.3: err 

* Exit. 4: end 


A [256] BYTE; Paged buffer, D$BUFn 
A $FCBIS; 

BYTE; $XCFMS01,$XFCMS02,SXCFMS03 
A CHAR; last byte stored in user area 


If Error: 


SPRM Ref: 


IF varRslt 
$ERRC.$FUNC 
SERRC.SCODE 
$ERRC.$FUNC 
SERRC.SCODE 
SIREAD 


&& DSCFLAG THEN SERMSG (); 

= SFMS 

= $ ECFMSO,$ECFMS2,S ECFMS10 
= SLR I SAM 
= SECLI024 

Vol.3 Sec. 4.3.3.1 
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$IREADCR 


FUNCTION 


$IREADCR 


ISAM Sequential, Read Current 
Category : File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 

Syntax : $ IREADCR (work, fob, & err, Send) 

Result : DSCCODE 

Assign : varRslt := $IREADCR (work, fob, ierr, Send); 
IF varRslt && D$ZFLAG 
THEN ( "err" is exception code ); 

Entry 1 : work A [256] BYTE; Paged buffer, DSBUFn 
Entry 2 : fcb A $FCBIS; 

* Exit 3 : err BYTE; , $XCFMS01,$XCFMS02,$XCFMS07 

* Exit 4: end A CHAR; last byte stored in user area 

If Error : IF varRslt && DSCFLAG THEN $ERMSG (); 

$ ERRC.$ FUNC = $FMS 

SERRC.SCODE = $ECFMS0,$ECFMS2,$ECFMS10 
$ ERRC. $ FUNC = SLRISAM 
$ERRC.$C0DE = $ ECL1022 
SPRM Ref: $ IREADCR Vol.3Sec. 4.3.2.3 
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$IREADKP 


FUNCTION 


$IREADKP 



Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$FAR 


Syntax : $IREADKP (work, fob, Serr, Send) 

Result : DSCCODE 

Assign : varRslt := $IREADKP (work, fcb, Serr, Send); 
IF varRslt && DSZFLAG 
THEN ( "err" is exception code ); 


Entry 1 : work A [256] BYTE; Paged buffer, D$BUFn 

Fntrv P • frh a tFrRK* 

* Exit 3: err BYTE; $XCFMS01,$XCFMS02,$XCFMS07 

* Exit 4: end A CHAR; last byte stored in user area 


If Error : IF varRslt && DSCFLAG THEN SERMSG (); 
$ERRC.$FUNC = $ FMS 

SERRC.SCODE = $ECFMS0,$ECFMS2,$ECFM510 
$ERRC.$FUNC = $LRI SAM 
$ERRC.$C0DE = $ ECL1022 
SPRM Ref: $IREADKP Vol.3Sec. 4.3.2.2 
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$IREADKS 


FUNCTION 


$IREADKS 


ISAM Sequential, Read Key Sequential 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DJFAR 

Syntax : SIREADKS (work, fob, Serr, Send) 

Result : DSCCODE 

Assign : varRslt := JIREADKS (work, fob, Serr, Send); 
IF varRslt && DJZFLAG 
THEN ( "err" is exception code ); 


Entry 1 : work 
Entry 2 : fcb 

* Exit 3: err 

* Exit 4: end 


A [256] BYTE; Paged buffer, DSBUFn 
A JFCBIS; 

BYTE; $XCFMS01,$XCFMS02,$XCFMS07 
A CHAR; last byte stored in user area 


If Error: IF varRslt && DSCFLAG THEN SERMSG (); 
$ERRC.$FUNC = $FMS 

$ERRC.$C0DE = $ECFMS0,$ECFMS2,$ECFMS10 
$ERRC.$FUNC = SLRISAM 
$ERRC.$C0DE = $ ECL1022 
JERRC.JFUNC = SC$SECR, SC$SECWAIT 
$ERRC.$C0DE = (see $SECR, SSECWAIT) 
SPRM Ref: $ IREADKS Vol.3Sec. 4.3.2.1 
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$IRWRT 


FUNCTION 


$IRWRT 


ISAM Random, Rewrite 


Category: File Access Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DJFAR 

Syntax : SIRWRT (work, fcb, &err, &end) 

Result : DiCCODE 

Assign : varRslt := SIRWRT (work, fcb, ierr, &end); 

IF varRslt && DSZFLAG 
THEN ( "err" is exception code ); 


Entry 1 : work 
Entry 2 : fcb 

* Exit 3: err 

* Exit 4: end 


A [256] BYTE; Paged buffer, DSBlIFn 
A SFCBIS; 

BYTE; SXCFMS01,SXCFMS02,$XCFMS03 
A CHAR; last byte read from user area 


If Error: 


SPRM Ref: 


IF varRslt 
$ ERRC.$ FUNC 
$ERRC.$C0DE 

$ERRC.$FUNC 
$ ERRC.$ CODE 
SIRWRT 


&& DSCFLAG THEN SERMSG (); 
= $ FMS 

= SECFMSO,SECFMS2,SECFMS9, 
$ ECFMS36 
= SLRISAM 

= $ECLI022,$ECLI024 
Vo 1.3 Sec. 4.3.3.6 
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$IRWRTCR 


FUNCTION 


$IRWRTCR 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 


Entry 1 : 
Entry 2 : 

* Exit 3: 

* Exit 4: 

If Error: 


SPRM Ref: 


ISAM Sequential, Rewrite Current 

File Access Routine 

82 Jul 01 Updated : 83 Apr 02 

D$FAR 

SIRWRTCR (work, fob, &err, Send) 

DSCCODE 

varRslt := SIRWRTCR (work, fob, ierr, &end); 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

work A [256] BYTE; Paged buffer, DSBUFn 

fcb A SFCBIS; 

err BYTE; $XCFMS01,$XCFMS02,$XCFMS07 
end A CHAR; last byte read from user area 

IF varRslt && OSCFLAG THEN $ERMSG (); 

$ ERRC.$ FUNC = $ FMS 

SERRC.$C0DE = $ECFMS0,$ECFMS2,$ECFMS9,$ECFMS36 

$ ERRC.$FUNC = SLRISAM 

SERRC.$C0DE = SECLI022 

SIRWRTCR Vo 1.3 Sec. 4.3.2.5 
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SIWRITE 


FUNCTION 


$IWRITE 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 


Entry 1 : 
Entry Z : 

* Exit 3: 

* Exit 4: 

If Error: 


SPRM Ref: 


ISAM Random, Write 


File Access Routine 

82 Jul 01 Updated : 83 Apr 02 

DJFAR 

$IWRITE (work, fob, Serr, Send) 

DSCCODE 

varRslt := $IWRITE (work, fob, Serr, Send); 

IF varRslt && DSZFLAG 

THEN ( "err" is exception code ); 

work A [256] BYTE; Paged buffer, DSBUFn 

fob A SFCBIS; 

err BYTE; SXCFMS04 

end A CHAR; Last char read from user area 

IF varRslt && DJCFLAG THEN SERMSG (); 

$ ERRC.$ FUNC = $ FMS 

$ERRC.$C0DE = SECFMSO,$ECFMS9,$ECFMS14,$ECFMS36 
SECFMS38 
$ERRC.$FUNC = SLRISAM 
$ERRC.$C0DE = $ECLI020,$ECLI022,$ECLI024 
SIWRITE Vo1.3 Sec. 4.3.3.2 
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$KEYCHAR 


FUNCTION 


$KEYCHAR 


Workstation-IF, Obtain One Translated Character 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 


Entry 1 : 
Entry 2 : 
* Exit 3: 

If Error: 
Remarks : 


See Also: 


SPRM Ref: 


User Function Routine 

82 Jul 01 Updated : 84 Jul 01 

DSUFRWS 

SKEYCHAR (hor, ver, ichar) 

DSCCODE 

varRslt := SKEYCHAR (hor, ver, ichar); 

IF varRslt && D$CFLAG=0 & varRslt && D$SFLAG=0 
THEN ("char" is translated character); 

IF varRslt && D$CFLAG=0 & varRslt && DSSFLAG 
THEN ("char" is untranslated control code); 

hor BYTE; $WSLC to SWSRC+ 

ver BYTE; x to $WSBL 

char CHAR; 

IF varRslt && DSCFLAG THEN SERMSG (); 

System call overhead very high for single 
character...should be used only when 
absolutely necessary. 

SWSIO for error messages 
SWCONFIG for screen size. 

LISTS section: $WS... Workstation Keyboard | 
Codes I 

KEYCHARS Vo 1.2 Sec. 7.8 
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$KEYCLR 


FUNCTION 


$KEYCLR 


Workstation-IF, Clear the Keyin FIFO 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRWS 

Syntax : JKEYCLR () 

Result : none 

If Error: No Error Occurs 

SPRM Ref: KEYCLR$ Vol.2Sec. 7.11 


$KEYIN 


FUNCTION 


$KEYIN 


Workstation, Accept a String From Keyboard to Memory 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Jul 01 | 

File : DSUFRWS (also DSRMSWS for $WSI0M0DE TYPDEF | 
if mode is other than 0) I 

Syntax : $KEYIN (line, mode, Alength, ihor, Aver) 
Result : D$CCODE 


Entry 1 : 
Entry 2 : 
Entry 3 : 
Entry 4 : 
Entry 5 : 

* Exit 3: 

* Exit 4: 

* Exit 5: 


line 

A CHAR; 

Pointer to input area 

mode 

BYTE; 

SWSI0M0DE: $WSM.... 

length 

BYTE; 

Input area (1 for SWSENTK) 

hor 

BYTE; 

Initial hor cur pos (SWSLC) 

ver 

BYTE; 

Initial ver cur pos ($WSBL-x) 

length 

BYTE; 

Initial length - keys input 

hor 

BYTE; 

cursor position of SWSENTK 

ver 

BYTE; 

cursor position of SWSENTK 


If Error: IF JKEYIN (...) && DSCFLAG THEN $ERMSG(); 

SWSI0 errors result in call to SERMSG. 

See Also: $GETLINE for error messages 
SWC0NFIG for screen size. 

LISTS section: $WS... Workstation Keyboard | 
Codes j 

SPRM Ref: KEYINS Vol.2Sec. 7.3 
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$KEYINTO f unction $KEYINTO 

Workstation-IF, Timeout Controlled Version of $KEYIN 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Jul 01 |* 

File : DSUFRWS (also D$RMSWS for SWSI0M0DE TYRDEF |* 
if mode is other than 0) j* 

Syntax : JKEYINTO (line, mode, ilength, ihor, Sver) 
Result : DtCCODE 

Entry 1 : line A CHAR; Pointer to input area 

Entry 2 : mode BYTE; $WSI0M0DE: $WSM.... 

Entry 3 : length BYTE; Input area (1 for SWSENTK) 

Entry 4 : hor BYTE; Initial hor cur pos($WSLC) 

Entry 5 : ver BYTE; Initial ver cur pos($WSBL-x) 

* Exit 3: length BYTE; Initial length - keys input 

* Exit 4: hor BYTE; cursor position of $WSENTK 

* Exit 5: ver BYTE; cursor position of $WSENTK 

If Error: IF JKEYINTO (...) && DSCFLAG THEN $ERMSG(); 

$WS10 errors result in call to SERMSG. 

See Also: $GETLINE for error messages 
SWCONFIG for screen size. 

LISTS section: $WS... Workstation Keyboard |* 
Codes |* 

SPRM Ref: KEYINT0$ Vol.2Sec. 7.6 
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$LBADD 


FUNCTION 


$LBADD 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 

Entry 1 : 
Entry 2 : 

* Exit 3: 

* Exit 4: 


If Error: 


Remarks : 


SPRM Ref: 


Add a Member to a Library 


User Function Routine 

82 Jul 01 Updated : 83 Apr 27 

DSUFRLIB 

SLBADD (pfdb, member, Udirmem, Alsn) 

DiCCODE 

varRslt : = SLBADD (pfdb,member,&dirmem,&lsn); 

pfdb A SPFDB; Opened PFDB 

member A SMEMBER; New Member name 

dirmem A SMEMBER; Member entry in directory 
Isn UNSIGNED; LSN of directory sector 

in disk buffer 

IF varRslt && DJCFLAG & varRslt && D$ZFLAG=0 
THEN (duplicate member name); 

IF varRslt && DSCFLAG & varRslt && DSZFLAG 
THEN (file format error or entry error); 
Member source file must then be copied into 
library beginnig at LSN indicated 
in "dirmem.SLIBMLSN" 

LBADD$ Vo 1.2 Sec. 9.5 
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$LBDEL 


FUNCTION 


$LBDEL 


Delete a Member From a Library 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRLIB 

Syntax : $LBDEL (pfdb, name) 

Result : DSCCODE 

Entry 1 : pfdb A $PFDB; Opened PFDB 

Entry 2 : name A SLNAMET; member name to delete 

If Error: IF SLBDEL (...) && DSCFLAG 
THEN (no such member); 

Remarks : The library entry will be marked *UNUSED* 
SPRM Ref: LBDELS Vo 1.2 Sec. 9.4 


$LBFIND 


FUNCTION 


$LBFIND 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 

Entry 1 : 
Entry 2 : 
* Exit 3: 


If Error: 


Remarks : 
SPRM Ref: 


Locate Library Member 
User Function Routine 

82 Jul 01 Updated : 83 Apr 27 

DSUFRLIB 

SLBFIND (pfdb, name, Amember) 

DSCCODE 

varRslt := SLBFIND (pfdb, name, Amember); 

pfdb A SPFDB; Opened library file 

name A SLNAMET; member name 

member A SMEMBER; member entry in 

directory sector in 
zeroth buffer of PFDB 

IF varRslt && DSCFLAG & varRslt && DSZFLAG-0 
THEN (member not found) 

IF varRslt && DSCFLAG & varRslt && DSZFLAG 
THEN (library file format or entry error) 
PFDB values SPT0D0,SPD0NE,SPCLSN change as 
routine progresses.SPBUFL used for I/O. 
LBFINDS Vol.2 Sec. 9.1 
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$LBFREE 


FUNCTION 


$LBFREE 


Find the First Free Sector in a Library 


Category. User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSUFRLIB 


Syntax : JLBFREE (pfdb, ilsn) 

Result : D$CC0DE 

Entry 1 : pfdb A $PFDB; Opened PFDB 
* Exit 2: lsn UNSIGNED; Highest USED LSN encounterd 

If Error : IF SLBFREE (...) && DSCFLAG 

THEN (library file format error); 

SPRH Ref: LBFREE$ Vo1.2Sec. 9.3 
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SLBGTLSN 


FUNCTION 


$LBGTLSN 


Locate Library Member and Return LSN 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : D$RMS 


Syntax : JLBGTLSN (type, pfdb, name, ilsn) 

Result : D$CCODE 

Assign : varRslt := SLBGTLSN ( type,pfdb,name,&1sn); 
IF varRslt && D$CFLAG=0 & varRslt && 
D$ZFLAG=0 THEN (member type mismatch); 

IF varRslt && D$CFLAG=0 & varRslt && 
D$ZFLAG THEN (member type correct); 


Entry 1 : type 

Entry 2 : pfdb 
Entry 3 : name 
* Exit 4: lsn 


BYTE; Member Type ($LIB...) 
that end in : SLIBTYPE : DJRMSSTRUCT: 
A $PFDB; same as SLBFIND 
A SLNAMET; same as SLBFIND 
UNSIGNED; LSN of Member 


If Error: IF varRslt && DSCFLAG & varRslt && 
D$ZFLAG=0 THEN (member not found); 

IF varRslt ii DSCFLAG 4 varRslt && 

DSZFLAG THEN (library file format or 
entry error); 

See Also: SLIBTYPE in TYPES for more info on Entry 1 
SPRM Ref: LBGTLSNS Vol.2Sec. 9.2 
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$LOAD 


FUNCTxJN 


$LOAD 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
Entry 2 : 
* Exit 3: 

If Error : 


SPRM Ref: 


Load an Overlay 
System Call 

82 Jul 01 Updated : 84 Jul 25 | 

DSRMS 

SLOAD (pfdb , lsn, Astart) 

DSCCODE 

pfdb A $PFDB; 

lsn UNSIGNED; LSN of abs header sector 
start SSTARTADR; Starting adr of overlay 

IF SLOAD (...) && DJCFLAG THEN $ERMSG (); 
$ERRC.$FUNC = SCSLOAD 

$ERRC.$C0DE = $ECUMAV,$ECSI001,JECL0AD2, | 

$ECL0AD3,$ECL0AD4,$ECSI05,SECL0AD6, | 

$ ECL0AD7,$ ECL0AD8,$ECSI010 | 

$L0AD Vol.4 Sec. 4.2 
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$LOADREL 


FUNCTION 


$LOADREL 


Invokinq the Relocating Loader 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSUFRRLD 


Syntax : JLOADREL (work, param, Slastus, &sadr) 

Result : D$CCODE 

Assign : varRslt := lLQADREL(work,param,SIastus,&sadr); 
IF varRslt && D$CFLAG=0 & varRslt && 

D$ZFLAG=0 THEN (undefined symbol encountered , 
"lastus" points to last undefined symbol 
name); 

IF varRslt && D$CFLAG=0 & varRslt && D$ZFLAG 
THEN (all symbols defined); 


Entry 1 : work A [256] BYTE; Loader work page 
Entry 2 : param A $RLPARAM; Loader parameter list 

* Exit 3 : lastus A SRLNAME; Loader name 

* Exit 4: sadr $STARTADR; Starting address or $N0ADR 

If Error: IF varRslt && DSCFLAG THEN SERMSG (); 

$ERRC.$FUNC = SCSSECR or SSECWAIT 
$ERRC.SC00E = (see SSECR or SSECWAIT) 
SERRC.SFUNC = SUECLDR 
$ERRC.$C0DE = $UECLDR1,$UECLDR2,$UECLDR4, 
SUECLDR5 

SPRM Ref: LOADRELS Vol.2 Sec. 11.2 
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$LOCKFAV 


FUNCTION 


$LOCKFAV 


Lock / Unlock a Specified FAV 


Category : System Call \ i 
Entered : 82 Dec 01 Updated : 84 Jul 25 \* 
File : DSRMSSPEC \* 


Syntax : SLOCKFAV (mode, pfdb) 
Result : DiCCODE 


Entry 1 : mode BYTE; $LFL0KSP or JLFULOKS 
Entry 2 : pfdb A $PFDB; 

If Error : IF SLOCKFAV (...) && DSCFLAG THEN SERMSG (); 
$ERRC.$FUNC = SCSLOCKFAV 
$ERRC.$C0DE = $ ECUMAV,SECS 1001,SECLKF2 


$LOCKRIM 


FUNCTION 


$LOCKRIM 


RIM Lockout, Attempt to Open Pipe ?(on hold] 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRSYS 


Syntax : $L0CKRIM (name, pfdb) 

Result : DSCCODE 

Assign : varRslt := SL0CKRIM (name, pfdb); 

IF varRslt && DJZFLAG THEN (Lock Failed); 

Entry 1 : name A SNAMET; RIM Name 

Entry 2 : pfdb A $PFDB; To be used for pipe 

If Error: IF varRslt && DJCFLAG THEN $ERMSG (); 
Remarks : Failure means someone is using RIM in DOS. 

Pipe name will be same as RIM with an "X" 
appended (a 12th letter in $NAMET would be 
discarded). Pipe password is 1st 8 chars. 
See Also: SUNLKRIM for releasing RIM from Pipe 
SPRH Ref: SL0CKRIM Vol.2 Sec. 5.6.1 
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$LOGCLR 


FUNCTION 


$LOGCLR 


Workstation-IF, Clear Logging Flags 


Category. User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRWS 


Syntax : SLOGCLR (flag, Sold) 
Result : none 


Entry 1 : flag BYTE; flag bits to be cleared (SPCRLF..) 
* Exit 2: old BYTE; flag bits previously set($PCRLF..) 

If Error: No Error Occurs 

See Also: $L0GSET for log flag bits; type PCR, $PCRL0GF 
for interpretation of bits 
SPRM Ref: L0GCLR$ Vo 1.2 Sec. 7.19 


SLOGGING FUNCTION SLOGGING 

Workstation-IF, Determine if Logging is Active 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRWS 

Syntax : SLOGGING () 

Result : D$CCODE 

Assign : varRslt := SLOGGING (); 

IF varRslt && DSCFLAG=0 THEN (LOG not Active); 
IF varRslt && DSCFLAG THEN (LOG Active); 

If Error: No Error Occurs 

SPRM Ref: LOGGINGS Vol.2Sec. 7.21 
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$LOGSET 


FUNCTION 


$LOGSET 


Category : 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
* Exit 2: 

If Error: 
See Also: 
Remarks : 

SPRH Ref: 


LOOP 

Execute 


Category: 
Entered : 

Syntax : 


Remarks : 


DASL Doc: 


Workstation-IF, Set Logging Flags 
User Function Routine 

82 Jul 01 Updated : 83 Jul 10 

DSUFRWS 

$L0GSET (flag, Sold) 
none 

flag BYTE; bits to be set ($PCRLF..) 
old BYTE; previous flag bits set ($PCRLF..) 

No Error Occurs 

type PCR, SPCRLOGF for interpretation of bits 
Log Flag Bits: SPCRLFAC, SPCRLFSP, SPCRLFEO, 
SPCRLFNI, SPCRLFFO, $PCRLFHR 
L0GSET$ Vol.2 Sec. 7.18 


FUNCTION 


LOOP 


Substatements Until WHILE Expression = 0 


DASL Control Word 

82 Jul 01 Updated : 83 Jul 19 

LOOP {statement; [...statement;] 

WHILE expression; [..statement]}; 
also: 

LOOP { 

[...statement;] 

WHILE expression; 
statement; 

[...statement;] 

}; 


LOOP WHILES may be nested; they may be one 
of the statements shown in the syntax. 

The order of expression and statement 
execution is controlable by placement in the 
syntax structure. 

73,74 March 1982 
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$MAP4K 


FUNCTION 


$MAP4K 


System-IF, Allocate Memory For a PFDB 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 84 Jul 01 

File : D$UFRSYS 


Syntax : $MAP4K (pfdb) 
Result : DSCCODE 


Entry 1 : pfdb A $PFDB; 

If Error: If JMAP4K (...) && D$CFLAG THEN $ERMSG(); 
SPRM Ref: MAP4K$ Vol.2Sec. 5.5 


$MEMCTL 


FUNCTION 


$MEMCTL 


Memory Control 


Category: System Call 

Entered : 83 Apr 02 Updated : 83 Jul 19 

File : D$RMSMEM 


Syntax : $MEMCTL (func) 
Result : DSCCODE 


Entry 1 : func BYTE; memory control codes ($MC...) 

If Error: IF $MEMCTL (...) && DSCFLAG THEN SERMSG (); 
$ ERRC.$ FUNC = SCSMEMCTL 
$ ERRC.$C0DE = $ECUMAV,$ECMCTL1,$ECMCTL2, 
$ECMCTL3 

Remarks : Memory control codes: $MCMD0N,$MCMD0FF, 
$MCMDTST,$MCDS0N,$MCDS0FF,SMCDSTST 
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$MEMGET 


FUNCTION 


$MEMGET 


Obtain PSK for Available User Memory Sector 


Category : System Call 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSRMSMEM 


Syntax : SMEMGET (ipsk) 
Result : DSCCODE 


* Exit 1: psk BYTE; PSK to use in SMEMMAP 

If Error : IF SMEMGET (...) U DSCFLAG THEN SERMSG (); 
$ ERRC.$ FUNC = SCSMEMGET 
SERRC.SCODE = SECMGETO, $ECMGET1 
See Also: $$MEMGET for User Function Routine version 
SPRM Ref: SMEMGET Vol.4Sec. 5.2.1 


$$MEMGET punction $$MEMGET 


System-IF, Obtain A Physical Memory Sector 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DJUFRSYS 


Syntax : $$MEMGET (ipsk) 
Result : DSCCODE 


* Exit 1: psk BYTE; Next available sector PSK 

If Error: IF $ SMEMGET (...) && DSCFLAG THEN SERMSG (); 
$ERRC.$FUNC=SC$MEMGET 
SERRC.$C0DE=$ECMGET0 

$ERRC.$FUNC=$UECMEM partition limit exceeded 
Remarks : Checks partition memory limit in PCR 
See Also: SMEMGET for System Call version 
SPRM Ref: MEMGETS Vol.2Sec. 5.3 
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$MEMKEY 


FUNCTION 


$MEMKEY 


Obtain PSK of a Mapped Memory Sector 


Category. System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 |* 

File : DJRMSMEM 


Syntax : JMEMKEY (msn, ipsk) 

Result : DSCCODE 

Assign : varRslt := JMEMKEY (msn, ipsk); 

IF varRslt && D$CFLAG=0 & varRslt && 

DJZFLAG THEN (write access); 

IF varRslt && DJCFLAG=0 & varRslt && 
D$ZFLAG=0 THEN (read only access); 

IF varRslt && DJCFLAG & JERRC.JCODE 
= JECMKEYO THEN (MSN is greater than avail) 
or $ERMSG() ; 

IF varRslt && DJCFLAG & JERRC.JCODE 
= JECMKEY1 THEN (MSN not currently mapped) 
or JERMSG() ; 


Entry 1 : msn BYTE; MSN Index: 0-15 « 4 and 

low order bit is ON/OFF 
* Exit 2: psk BYTE; PSK mapped in given MSN 

If Error: IF varRslt && DJCFLAG THEN JERMSG (); 

SERRC.JFUNC = SCJMEMKEY 

JERRC.JCODE = JECMKEYO,JECMMAP1 (see Assign:) |* 
SPRM Ref: JMEMKEY Vol.4Sec. 5.2.4 
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$MEMMAP 


FUNCTION 


$MEMMAP 


Map a Physical Memory Sector into Logical Space 
Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 01 

File : DSRMSMEM 

Syntax : SMEMMAP (msn, psk) 

Result : DSCCODE 

Assign : varRslt := $MEMMAP (msn, psk); 

IF varRslt && D$CFLAG=0 & varRslt && DSZFLAG 
THEM (write access ); 

IF varRslt && D$CFLAG=0 & varRslt && D$ZFLAG=0 
THEN (read only access); 

IF varRslt && DSCFLAG & $ERRC.$C0DE = $ECMMAP1 
THEN (MSN is greater than avail.) or $ERMSG(); 

Entry 1 : msn BYTE; MSN Logical Index: see SMEMKEY 

Entry 2 : psk BYTE; PSK obtained from SMEMGET,SMEMKEY 

If Error : IF varRslt && DSCFLAG THEN SERMSG (); 

$ ERRC. $ FUNC = SCSMEMMAP 

SERRC.SCODE = $ECMMAP0,$ECMMAP1 (see ASSIGN) 
Remarks : The User Task can map a sector instead of PCR 
in MSN 0. Nucleus restores PCR on exit to Cl. 
SPRM Ref: SMEMMAP Vo 1.4 Sec. 5.2.3 
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$MEMPROT 


FUNCTION 


$MEMPROT 


Change Memory Protection 
Category: System Call 

Entered : 83 Apr 02 Updated : 84 Jul 25 I 

File : D$RMSMEM 

Syntax : JMEMPROT (prot, psk) 

Result : DSCCODE 

Entry 1 : prot BYTE; Mode SMPR0TR0, JMPROTRW 

Entry 2 : psk BYTE; 

If Error : IF $MEMPR0T (...) && 0$CFLAG THEN $ERMSG ( ); 

$ ERRC.SFUNC = SCSMEMPROT 

$ERRC.$C0DE = SECMRELO,SECMRELl,SECMREL2, | 

$ ECMREL3 | 
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$MEMREL 


FUNCTION 


$MEMREL 


Release a Memory Sector 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 | 

File : DSRMSMEM 


Syntax : $MEMREL (psk) 
Result : DSCCODE 


Entry 1 : psk BYTE; PSK of 4k bytes to release 

(..But not the PCR ) 

If Error: IF SMEMREL (...) && DSCFLAG THEN $ERMSG ( ); 
SERRC.SFUNC = SCSMEMREL 
SERRC.SCODE = $ECMREL0,SECMREL1,$ECMREL2, 
SECMREL3 

See Also: SSMEMREL for User Function Routine version 
SPRM Ref: SMEMREL Vo 1.4 Sec. 5.2.2 


$$MEMREL function $$MEMREL 


System-IF, Release a Physical Memory Sector 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRSYS 


Syntax : SJMEMREL (psk) 
Result : DSCCODE 


Entry 1 : psk BYTE; PSK of sector to be released 

If Error: IF VSMEMREL (...) && DJCFLAG THEN SERMSG (); 
SERRC.SFUNC = SCSMEMREL 
SERRC.SCODE = $ECMREL0,$ECMREL1,SECMREL2 
See Also: SMEMREL for System Call version of routine 
SPRM Ref: MEMRELS Vol.2Sec. 5.4 
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MFREMEM$ 


FUNCTION 


MFREMEM$ 


Name of EXTERNAL RMS UFR used by SMMFREMEM 


Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 

MGETCLR$ function MGETCLR$ 

Name of EXTERNAL RMS UFR used by SMMGETCLR 

Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 

MGETFST$ function MGETFST$ 

Name of EXTERNAL RMS UFR used by $MMGETFST 

Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 

MGETMEM$ function MGETMEM$ 

Name of EXTERNAL RMS UFR used by SIWIGETMEM 

Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 

MGETPAG$ function MGETPAG$ 

Name of EXTERNAL RMS UFR used by SMMGETPAG 

Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 
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$MLTPLY3 


FUNCTION 


$MLTPL 


Numeric, Unsigned 24-bit Multiplication 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 0 

File : OSUFRNUM 


Syntax : $MLTPLY3 (vail, va!2, iresult) 
Result : DSCCODE 


Entry 1 : vail ULONG; 
Entry 2 : val2 ULONG; 
* Exit 3: result ULONG; 


If Error : IF $MLTPLY3 (...) && D$CFLAG THEN overflc 
SPRM Ref: MLTPLY3$ Vol.2Sec. 4.14 


$MMFREMEM FUNCTI on $MMFREME 


Deallocate a Block of Manaqed Memorv 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 1 

File : DSUFRMEM 


Syntax : $MMFREMEM (block) 
Result : DSCCODE 


Entry 1 : block A BYTE; First user byte of block 


If Error: IF $MMFREMEM (...) && DSCFLAG 

THEN (invalid block address passed); 
See Also: $MMINIT for remarks and list 
of related functions 

SPRM Ref: MFREMEM$ Vol.2 Sec. 12.2.4 
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$MMGETCLR 


FUNCTION 


$MMGETCLR 


Allocate a Cleared Block of Managed Memory 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : OSUFRMEM 

Syntax : $MMGETCLR (length, Mock) 

Result : D$CCODE 

Entry 1 : length UNSIGNED; Length of block desired 

* Exit 2: block A BYTE; first byte of block allocated 

If Error : IF SMMGETCLR (...) && DSCFLAG 
THEN (memory not available); 

Remarks : Identical to SMMGETMEM excepts clears 
allocated area to binary zeros. 

See Also: $MMINIT for remarks and list 
of related functions 

SPRM Ref: MGETCLRS Vol.2 Sec. 12.2.2 


$MMGETFST punct IO n $MMGETFST 


Allocate Free Space Block of Managed Memory 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRMEM 


Syntax : $MMGETFST (length, iblock) 
Result : DSCCODE 


Entry 1 : length UNSIGNED; block length desired 
* Exit 2: block A BYTE; first by of block allocated 


If Error: IF SMMGETFST (...) && DSCFLAG 
THEN (memory not available); 

Remarks : Allocation by extending unused space; similar 
to SMMGETMEM but does not search free list. 
See Also: SMMINIT for remarks and list 
of related functions 

SPRM Ref: MGETFSTS Vol.2 Sec. 12.2.3 
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$MMGETMEM FU nction $MMGETMEM 

Allocate a Block of Managed Memory from Free List 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : D$UFRMEM 

Syntax : JMMGETMEM (length, & block) 

Result : DSCCODE 

Entry 1 : length UNSIGNED; Block length desired 

* Exit 2: block A BYTE; first byte of block allocated 

If Error: IF SMMGETMEM (...) && DJCFLAG 
THEN (memory not avail able); 

See Also: SMMINIT for remarks and list 
of related functions 

SPRM Ref: MGETMEMS Vo 1.2 Sec. 12.2.1 


$MMGETPAG FUNCT ion $MMGETPAG 


Obtain a Page of Logical Managed Memory Space 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSUFRMEM 


Syntax : $MMGETPAG (imsb) 
Result : DSCCODE 


* Exit 1: msb BYTE; MSB of allocated Page address 

If Error: IF SMMGETPAG (...) && DSCFLAG 
THEN (no memory avail able); 

Remarks : Pages are allocated from highest address of 
logical managed memory space downwards. 

See Also: SMMINIT for remarks and list 
of related functions 

SPRM Ref: MGETPAGS Vol.2 Sec. 12.3.1 
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MMGINIT$ 


FUNCTION 


MMGINIT$ 


Name of EXTERNAL RMS UFR used by SMMINIT 

Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 


$MMINIT f unct ion $MMINIT 

Initialize Management of Already Mapped Memory 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRMEM 

Syntax : SMMINIT (top) 

Result : none 

Entry 1 : top A BYTE; 1st byte,managed logical space 
If Error: No Error Occurs 

Remarks : Initializes management of variable size 

blks or 256-byte pages of memory previously 
allocated and mapped in (4k sectors). 

See >47so: $MMFREMEM,SMMGETCLR,SMMGETFST,SMMGETMEM, 
$MMGETPAG,$MMRETPAG 

SPRM Ref: MMGINITS Vol.2 Sec. 12.1 
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$MMRETPAG 


FUNCTION 


$MMRETPAG 


Release a Page of Logical Managed-Memory Space 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 Ju1 10 

File : DSUFRMEM 

Syntax : $MMRETPAG (msb) 

Result : D$CC0DE 


Entry 1 : msb BYTE; MSB of page previously allocated. 

If Error : IF $MMRETPAG (...) && D$CFLAG 
THEN (invalid MSB passed); 

See Also: SMMINIT for remarks and list 
of related functions 

SPRM Ref: MRETPAG$ Vo 1.2 Sec. 12.3.2 


MRETPAG$ function MRETPAG$ 

Name of EXTERNAL RMS UFR used by $MMRETPAG 
Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 
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$MSGC 


FUNCTION 


$MSGC 


Err-Msg, Locate a Message and Copy Into $MSG 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Aug 08 | 

File : D$RMS 

Syntax : $MSGC (errNum, ilength) 

Result : D$CCODE 

Entry 1 : errNum UNSIGNED; user defined msg. number | 

* Exit 2: length BYTE; 

If Error: IF $MSGC (...) && DJCFLAG THEN SERMSG ( ); 

$ERRC will contain SSECR or $SECWAIT error 
codes indicate Command File I/O error. 

Remarks : Opens the program command file library from | 
information in $PCRCMDN and $PCRCMDE to I 

access user defined messages in the MESSAGE | 
member. I 

SMSGCGET is called following the open. | 

Use $MSGCX0 to open members with a name I 

other than MESSAGE. I 

See Also: SMSGCGET for alternate routine 

SPRM Ref: MSGC$ Vol.ZSec. 3.3.1 
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$MSGCGET 


FUNCTION 


$MSGCGET 


Err-Msg, Locate and Deliver a Message 


Category. User Function Routine 

Entered : 82 Jul 01 Updated : 84 Aug 08 | 

File : D$UFRERR 

Syntax : SMSGCGET (pfdb, lsn, message, Slength) 

Result : DSCCODE 


Entry 1 : 
Entry 2 : 
Entry 3 : 
* Exit 4: 


pfdb A $PFDB; the command file I 
lsn UNSIGNEDjof member (from $LIBINF0) | 
message UNSIGNED; message code number j 
length BYTE; IF > 0 message found, 

IF = 0 message not found 


If Error : IF SMSGCGET (...) && DSCFLAG THEN $ERMSG (); 
SERRC will contain $SECR or SSECWAIT error 
codes indicate Command File I/O error. 

Remarks : Smaller than $MSGC and contains no internal 
calls to other UFR's. Command file must be 
open, and message member located 

See Also: $MSGC for alternative routine which opens 
for itself. 

SPRM Ref: MSGCGETS Vol.2Sec. 3.3.2 


$MSGCXO FUNCTION $MSGCXO 

Open, Position to a Command Lib MESSAGE Member 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Aug 08 | 

File : D$UFRERR 

Syntax : SMSGCXO (name) 

Result : DSCCODE 

Entry 1 : name A SLNAMET; member name I 

If Error: IF SMSGCXO (...) && DSCFLAG 

THEN (file / member not found); 

SPRM Ref: MSGCXOS Vol.2Sec. 3.3.3 
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$NEWPCR function $NEWPCR 

Environment, Create New PCR for Independent Task 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 30 

File : D$UFRENV 

Syntax : JNEWPCR (msn, commands, length) 

Result : DSCCODE 

Entry 1 : msn BYTE; MSN to be used for new PCR 

Entry 2 : commands A CHAR; Adr of new command stack 

Entry 3 : length UNSIGNED; length of new cmd stack 

If Error: IF $NEWPCR (...) && D$CFLAG THEN $ERMSG (); 

Command stack overflow 
SPRM Ref: NEWPCRJ Vol.2Sec. 2.15 


$NQDQBLD 


FUNCTION 


$NQDQBLD 



Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSUFRNQDQ 


Syntax : JNQDQBLD (list, msg, ierr) 
Result : DSCCODE 


Entry 1 : list A A $0PENPT; adr of adr list, 22 max 
Entry 2 : msg A SNQDQMSG; address of output area 
* Exit 3: err BYTE; 

If Error: IF SNQDQBLD (...) && DSCFLAG 
THEN ("err" is error code); 
err = 14 too many items in request 
err = 15 error during $ INFO 
$ ERRC.$ FUNC = SC$INFO 
$ERRC.$C0DE = see $INF0 
SPRM Ref: NQDQBLDS Vol.2 Sec. 10.3 
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SNQDQCHK 


FUNCTION 


$NQDQCHK 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 


* Exit 1: 
If Error: 


Remarks : 
SPRM Ref: 


NQDQ, Check Limited Request 
User Function Routine 

82 Jul 01 Updated : 84 Jul 01 

DSUFRNQDQ 

SNQDQCHK (ierr) 

DSCCODE 

varRslt := SNQDQCHK (ierr); 

IF varRslt && DSCFLAG && ("err" = 0) 

THEN (request pending..NO ERROR); 

IF varRslt && D$CFLAG=0 
THEN (request granted); 

err BYTE; 

IF varRslt && DSCFLAG 

THEN ("err" is error code); 

err = 0 request pending..NO ERROR 

5 invalid request code 

6 unrecognizable response received 

7 user task not logged on 

8 no limited enqueue active 

21 error during $SECWAIT to UCP 
$ ERRC.$ FUNC = SCSSECWAIT 
SERRC.SCODE = see SSECWAIT 
Use with SNQDQENL, to see if limited enqueue 
granted. 

NQDQCHKS Vol.2 Sec. 10.6 
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$NQDQENL 


FUNCTION 


$NQDQENL 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
* Exit 2: 

If Error: 


Remarks : 


See Also: 
SPRM Ref: 


NQDQ, Request a Limited Enqueue 

User Function Routine 

82 Jul 01 Updated : 83 Jul 10 

DJUFRNQDQ 

SNQDQENL (msg, ierr) 

DSCCODE 

msg A $NQDQMSG; pointer to message block 
err BYTE; 

IF SNQDQENL (...) && DSCFLAG 
THEN ("err" is error code); 
err = 5 invalid request code 

6 unrecognizable response received 
11 error during $SECR to UCP 
16 error during $SECW to RSP 
21 error during $SECWAIT to UCP 
$ERRC.$FUNC = SC$SECWAIT, SCSSECW, SCSSECR 
SERRC.SCODE = see SSECWAIT,SSECW or SSECR 
Same as SNQDQENQ except control returned 
immediately to calling user. Then user must 
use SNQDQCHK to determine in request was 
granted. 

SNQDQENQ for differences; SNQDQCHK for 
results 

NQDQENLS Vol.2 Sec. 10.5 
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$NQDQENQ 


FUNCTION 


$NQDQENQ 


NQDQ, Enqueue on a Resource 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 May 03 

File : DSUFRNQDQ 

Syntax : SNQDQENQ (msg, &err) 

Result : D$CCODE 

Entry 1 : msg A SNQDQMSG; pointer to message block 
* Exit 2: err BYTE; 

If Error: IF SNQDQENQ (...) && DSCFLAG 
THEN ("err" is error code); 


err = 5 

invalid request code 

6 

unrecognizable response received 

7 

user task not logged on 

11 

error during SSECR to UCP 

16 

error during SSECW to RSP 

21 

error during SSECWAIT to UCP 


SERRC.SFUNC = SCSSECWAIT, SCSSECW, SCJSECR 
SERRC.SCODE = see $SECWAIT,$SECW or SSECR 
SPRM Ref: NQDQENQS Vol.2 Sec. 10.4 
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$NQDQLGF 


FUNCTION 


$NQDQLGF 


Category: 
Entered : 
File : 

Syntax : 
Result : 

* Exit 1: 

If Error: 


SPRM Ref: 


NQDQ, Disconnect from the System 

User Function Routine 

82 Jul 01 Updated : 83 Apr 02 

DSUFRNQOQ 

$NQDQLGF (ierr) 

DSCCODE 

err BYTE; 

IF $NQDQLGF (...) && DJCFLAG 

THEN ("err"=error code); 

err = 7 user task not logged on 

16 error during $SECW to RSP 

17 error during SCLOSE 
$ERRC.$FUNC = SC$SECW or SC$CL0SE 
$ERRC.$C0DE = see $SECW or SCLOSE 
NQDQLGFS Vol.2 Sec. 10.2 
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$NQDQLGN 


FUNCTION 


$NQDQLGN 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
* Exit 2: 

If Error: 


SPRM Ref: 


146 DASL 


NQDQ, Connect to the System 

User Function Routine 

82 Jul 01 Updated : 83 May 03 

D$UFRNQDQ 

$NQDQLGN (logon, ierr) 

DSCCODE 

logon A $NAMEEXTENV; Logon parameter table 
err BYTE; 

IF JNQDQLGN (...) && D$CFLAG 
THEN (error code in "err"); 
err = 1 unable to open CLP 

2 controller not allowing logons 

3 user task already logged on 

4 version/modification level mismatch 

5 invalid request code 

6 unrecognizable response received 

11 error during $SECR to UCP 

12 controller environment not found 

16 error during $SECW to RSP 

17 error during $CL0SE 

18 unable to open UCP 

19 unable to open RSP 

20 unable to read CLP 

21 error during SSECWAIT to UCP 
$ERRC.$FUNC = SCSSECWAIT, SCSSECW, SC$SECR 
$ERRC.$C0DE = see $SECWAIT,$SECW or $SECR 
NQDQLGNS Vol.2 Sec. 10.1 
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$NQDQREL 


FUNCTION 


$NQDQREL 


NQDQ, Release a Resource 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 May 03 

File : D$UFRNQDQ 

Syntax : SNQDQREL (ierr) 

Result : D$CCODE 

* Exit 1: err BYTE; 

If Error: IF SNQDQREL (...) && DSCFLAG 
THEN ("err" is error code); 
err = 5 invalid request code 

6 unrecognizable response received 

7 user task not logged on 
11 error during SSECR to UCP 
16 error during $SECW to RSP 

21 error during SSECWAIT to UCP 
SERRC.SFUNC = SCSSECWAIT, SCSSECW, SCSSECR 
$ERRC.$C0DE = see SSECWAIT,SSECW or SSECR 
SPRM Ref: NQDQRELS Vol.2 Sec. 10.9 
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$NQDQRST 


FUNCTION 


$NQDQRST 


NQDQ 

Category: 
Entered : 
File : 

Syntax : 
Result : 

* Exit 1: 

If Error: 

Remarks : 
SPRM Ref: 


, Reset the Controller 4-byte Counters 

User Function Routine 

82 Jul 01 Updated : 83 May 03 

DSUFRNQDQ 

JNQDQRST (ierr) 

DSCCODE 

err BYTE; 

IF JNQDQRST (...) && D$CFLAG 
THEN ("err" is error code); 
err = 7 user task not logged on 
16 error during SSECW to RSP 
$ERRC.$FUNC = SCSSECW 
$ERRC-SCODE = see $SECW 
Resets counters $NQDQSTAT.CNTENQ 
thru $NQDQSTAT.CNTTO 
NQDQRSTS Vol.2 Sec. 10.11 
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$NQDQSTA 


FUNCTION 


$NQDQSTA 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
* Exit 2: 

If Error: 


SPRM Ref: 


NQDQ, Acquire Controller Statistics 


User Function Routine 

82 Jul 01 Updated : 83 May 03 

D$UFRNQDQ 

SNQDQSTA (stat, &err) 

DSCCODE 

stat A $NQDQSTAT; counters 
err BYTE; 

IF SNQDQSTA (...)&& DJCFLAG 
THEN ("err" is error code); 
err = 5 invalid request code 

6 unrecognizable response received 

7 user task not logged on 
11 error during SSECR to UCP 
16 error during SSECW to RSP 

21 error during SSECWAIT to UCP 
$ERRC.SFUNC = SCSSECWAIT or SCSSECW or SCSSECR 
SERRC.$C0DE = see SSECWAIT,$SECW or SSECR 
NQDQSTAS Vol.2 Sec. 10.10 
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$NQDQSTP 


FUNCTION 


$NQDQSTP 


NQDQ, Terminate an In-Progress Limited Enqueue 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 May 03 

File : DSUFRNQDQ 


Syntax : JNQDQSTP (ierr) 
Result : DtCCODE 


* Exit 1: err BYTE; 


If Error: IF JNQDQSTP (...) && D$CFLA6 
THEN ("err" is error code); 
err = 5 invalid request code 

6 unrecognizable response received 

7 user task not logged on 

10 no limited enqueue active 

11 error during SSECR to UCP 
16 error during $SECW to RSP 

21 error during SSECWAIT to UCP 
SERRC.SFUNC = SCSSECWAIT, SC$SECW, SCSSECR 
$ERRC.$C0DE = see $SECWAIT,$SECW or SSECR 
SPRM Ref: NQDQSTPS Vol.2 Sec. 10.8 
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$NQDQWAT 


FUNCTION 


$NQDQWAT 


NQDQ, Wait for a Limited Enqueue Request 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$UFRNQDQ 


Syntax : JNQDQWAT (ierr) 
Result : D$CC0DE 


* Exit 1: err BYTE; 


If Error : IF JNQDQWAT (...) && DSCFLAG 
THEN ("err" is error code); 
err = 5 invalid request code 

6 unrecognizable response received 

7 user task not logged on 

9 no limited enqueue active 
21 error during SSECWAIT to UCP 
$ERRC.$FUNC = SC$SECWAIT 
$ERRC.$C0DE = see $SECWA1T 
SPRM Ref: NQDQWATS Vol.2 Sec. 10.7 
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$OPEN FUNCTION $OPEN 

Open a File; Search for ENV, which is not specified 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$RMS 

Syntax : $0PEN (mode, openpt) 

Result : DSCCODE 

Entry 1 : mode BYTE; open modes ($0M...) 

Entry 2 : openpt A SOPENPT; 

If Error: IF $0PEN (...) && DSCFLAG THEN $ERMSG ( ); 
SERRC.SFUNC = SCSOPENENV 
$ERRC.$C0DE = see $0PENENV error codes 
SERRC.SFUNC = SUECOPN 
SERRC.SCODE = $UECOPNO,SUECOPN1,SUECOPN2, 
SUEC0PN3 

See Also: SOPENENV for Open Modes, Access Codes, 
Formats 

SPRM Ref: SOPEN Vol.2 Sec. 5.1 
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80PENENV 


FUNCTION 


$OPENENV 


Open a File with Specified ENV 

Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 | 

c ile : DSRMSIO 

Syntax : SOPENENV (mode, openpt) 

Result : DSCCODE 

F ntry 1 : mode BYTE; SOM... 

Intry 2 : openpt A SOPENPT; See SOPENPTS,special modes 

If Error: IF SOPENENV (...) && DSCFLAG THEN SERMSG (); 

SERRC.SFUNC = SCSOPENENV 

SERRC.SCODE = All resources I 

$ECUMAV,$ECSI005,SECSI007,SECS 1021, | 

SECS 1023,SECS 1025,SECS 1028,SECS 1030, | 

SECS 1031,SECS 1034,SECS 1063 I 

Disk resources I 

SECS 1012,SECS 1013,SECS 1014,SECS 1015, | 

SECS 1016,SECS 1022,SECS 1024,SECS 1026, | 

SECS 1027,SECS 1045,SECS1053,SECS 1055, | 

S ECS 1064 | 

Pipe resources I 

$ECSI045,S ECS 1055 | 

Printer resources I 

SECS 1029,SECS 1043,SECS 1045,SECS 1055 | 

Tape resources I 

$ ECS 1029,$ ECS 1043 | 

Card reader resources I 

S ECS 1054 | 

Comm resources I 

SECS 1029,SECS 1043,SECS 1054,SECS 1057, | 

$ ECS 1059 | 

... continued 
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Remarks : Open Modes.: 

SOMREAD,SOMEXCL,SOMSHARE,SOMCREAT,$OMPREP 
Special.: 

$OMCHECK,$OMREPAR (use SOPENPTS ) 

Access Codes. * 

SACATALG,$ACIULL,SACREAD,$ACREATE,$ACRENM, 

$ACREPX,$ACSECQ,$ACWRIT,$ACMAX 

File Formats.: $FFMT... 


SPRM Ref: SOPENENV 
SPRM Ref : SOPENENV 
SPRM Ref: SOPENENV 
SPRM Ref: SOPENENV 
SPRM Ref: SOPENENV 
SPRM Ref: SOPENENV 
SPRM Ref: SOPENENV 
SPRM Ref: SOPENENV 


Vol.4 Sec. 7.4.1 
Vol.4 Sec. 8.4.1 
Vol.4 Sec. 9.1.1.3 
Vol.4 Sec. 9.2.1.1 
Vol.4 Sec. 9.3.1.1 
Vol.4 Sec. 9.4.1.1 
Vol.4 Sec. 10.1.1 
Vol.4 Sec. 11.1 


$PAKPW 


FUNCTION 


$PAKPW 


Environment, Pack ACSII String Into Password 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSUFRENV 


Syntax : SPAKPW (uncomp, comp, iinvalid) 

Result : DSCCODE 

Assign : varRslt := SPAKPW (uncomp , comp, iinvalid); 
IF varRslt && D$CFLAG=0 & varRslt && 
DSZFLAG=0 THEN (good password); 

IF varRslt && D$CFLAG=0 & varRslt && DSZFLAG 
THEN (null password); 


Entry 1 : uncomp A SUNPACKPW; 

Entry 2 : comp A SPACKPW; 

* Exit 3: invalid A CHAR; 


If Error: IF varRslt && DSCFLAG THEN invalid password 
SPRM Ref: PAKPWS Vol.2Sec. 2.10 
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SPIPEGEN 


FUNCTION 


$PIPEGEN 


Create a Pipe Resource 
Category: System Call 

Entered : 82 Jul 01 Updated : 84 Ju1 25 | 

'ile : DSRMSIO 

Syntax : SPIPEGEN (ptab, autoDel) 

Result : DSCCODE 


Entry 1 : ptab A SPIPEGENPT; 

Entry 2 : autoDel BOOLEAN; Alternate mode if true 

If Error: IF SPIPEGEN (...) && DSCFLAG THEN SERMSG (); 
$ ERRC.$ FUNC = SCSPIPEGEN 
SERRC.SCODE = $ECUMAV,$ECSI028,$ECSI030, 

$ ECS 1031,SECS 1037,$ECS1040,SECS 1049 
SPRM Ref: SPIPEGEN Vol.4Sec. 9.1.1.1 


SPIPEUSE FUNCTION $PIPEUSE 

Check Local Pipe-in-use Status 
Category: System Call 

Entered : 82 Jul 01 Updated : 82 Dec 01 

c ile : DSRMSIO 

Syntax : SPIPEUSE (pfdb) 

Result : DSCCODE 

Assign : varRslt := SPIPEUSE (pfdb); 

IF varRslt && DSCFLAG=0 & varRslt && DSZFLAG 
THEN (no other task has pipe opened.); 

IF varRslt && DSCFLAG=0 & varRslt && DSZFLAG=0 
THEN another task has pipe opened. 

Entry 1 : pfdb A SPFDB; 

If Error : IF varRslt && DSCFLAG THEN SERMSG (); 
SERRC.SFUNC = SCSPIPEUSE 
SERRC.SCODE = SECUMAV,$ECS 1001,SECS 1005, 

SECS 1007,SECS 1010,SECS1025 
SPRM Ref: SPIPEUSE Vol.4Sec. 9.1.1.2 
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$PUTELGX 


FUNCTION 


$PUTELGX 


Workstation-IF, 


Message 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 

File : DSUFRWS 


Syntax : SPUTELGX (message, Shor, Sver) 
Result : DSCCODE 


Entry 1 : message A CHAR; Message terminated by $ES 

Entry 2 : hor BYTE; Initial hor curs pos(SWSLC) 

Entry 3 : ver BYTE; Initial ver curs pos(SWSBL-x) 

* Exit 2: hor BYTE; Ending cursor position 

* Exit 3: ver BYTE; Ending cursor position 

If Error : IF SPUTELGX (...) && DSCFLAG THEN SERMSG (); 
Remarks : Entry requires SWSIO mode bits in PUTWSMDS 
(usually 0's). SWCONFIG for screen size. 

SPRH Ref: PUTELGXS Vol.2Sec. 7.1 


$PUTELOG function $PUTELOG 

Workstation-IF, Home-Down Roll, Log Error Message 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS 

Syntax : SPUTELOG (message, &hor, &ver) 

Result : D$CCODE 

Entry 1 : message A CHAR; Message terminated by $ES 

Entry 2 : hor BYTE; Initial hor curs pos(SWSLC) 

Entry 3 : ver BYTE; Initial ver curs pos(SWSBL-x) 

* Exit 2: hor BYTE; Ending cursor position 

* Exit 3: ver BYTE; Ending cursor position 

If Error: IF SPUTELOG (...) && DSCFLAG THEN SERMSG (); 
Remarks : Entry requires SWSIO mode bits in PUTWSMDS 
(usually 0's). SWCONFIG for screen size. 

SPRM Ref: PUTELOGS Vol.2Sec. 7.1 
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$PUTERP function $PUTERP 

Workstation, Home-Down Roll, Log/Display SMSG, Error 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS 

Syntax : SPUTERP (&hor, iver) 

Result : DSCCODE 

Entry 1 : hor BYTE; Initial hor curs pos(SWSLC) 

Entry 2 : ver BYTE; Initial ver curs pos(SWSBL-x) 

* Exit 1: hor BYTE; Ending cursor position 

* Exit 2: ver BYTE; Ending cursor position 

If Error: IF JPUTERP (...) && DSCFLAG THEN SERMSG (); 
Remarks : Entry requires SWSIO mode bits in PUTWSMDS 
(usually O's). Message is in SMSG. 

SWCONFIG for screen size. 

SPRM Ref: PUTERPS Vo 1.2 Sec. 7.1 


SPUTERPX function $PUTERPX 

Workstation, Log/Display from SMSG, Error 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS 

Syntax : SPUTERPX (ihor , iver) 

Result : DSCCODE 

Entry 1 : hor BYTE; Initial hor curs pos(SWSLC) 

Entry 2 : ver BYTE; Initial ver curs pos(SWSBL-x) 

* Exit 1: hor BYTE; Ending cursor position 

* Exit 2: ver BYTE; Ending cursor position 

If Error: IF SPUTERPX (...) && DSCFLAG THEN SERMSG (); 
Remarks : Entry requires SWSIO mode bits in PUTWSMDS 

(usually O's). Message is in SMSG externally 

defined buffer. SWCONFIG for screen size. 

SPRM Ref: PUTERPXS Vol.2Sec. 7.1 
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$PUTERRR 


FUNCTION 


$PUTERRR 


Workstation, Home-Down Roll, Log/Display. Error 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS 

Syntax : SPUTERRR (message, ihor, iver) 

Result : D$CCODE 

Entry 1 : message A CHAR; Message terminated by $ES 

Entry 2 : hor BYTE; Initial hor curs pos($WSLC) 

Entry 3 : ver BYTE; Initial ver curs pos(SWSBL-x) 

* Exit 2: hor BYTE; Ending cursor position 

* Exit 3: ver BYTE; Ending cursor position 

If Error: IF SPUTERRR (...) && DSCFLAG THEN $ERMSG (); 
Remarks : Entry requires $WSI0 mode bits in PUTWSMDJ 
(usually 0's). SWCONFIG for screen size. 

SPRM Ref: PUTERRR$ Vol.2Sec. 7.1 


$PUTERRX function $PUTERRX 

Workstation, Loq/Display Message, Error 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS 

Syntax : JPUTERRX (message , ihor, iver) 

Result : D$CCODE 

Entry 1 : message A CHAR; Message terminated by $ES 

Entry 2 : hor BYTE; Initial hor curs pos($WSLC) 

Entry 3 : ver BYTE; Initial ver curs pos($WSBL-x) 

* Exit 2: hor BYTE; Ending cursor position 

* Exit 3: ver BYTE; Ending cursor position 

If Error: IF $PUTERRX (...) && DSCFLAG THEN SERMSG (); 
Remarks : Entry requires $WSI0 mode bits in PUTWSMDJ 
(usually 0's). SWCONFIG for screen size. 

SPRM Ref: PUTERRXS Vol.2Sec. 7.1 
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$PUTLINE 


FUNCTION 


$PUTLINE 


Workstation, Home-Down Roll, Display Message 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$UFRWS 

Syntax : $PUTLINE (message, &hor,&ver) 

Result : DSCCODE 


Entry 1 : 
Entry 2 : 
Entry 3 : 

* Exit 2: 

* Exit 3: 


message A CHAR; Message terminated by SES 
hor BYTE; Initial hor curs pos(SWSLC) 

ver BYTE; Initial ver curs pos(SWSBL-x) 

hor BYTE; Ending cursor position 

ver BYTE; Ending cursor position 


If Error: IF $PUTLINE (...) && DSCFLAG THEN $ERMSG (); 
Remarks : Entry requires $WS10 mode bits in PUTWSMDS 
(usually 0's). SWCONFIG for screen size. 

SPRM Ref: PUTLINES Vol.2Sec. 7.1 


SPUTLINX 


FUNCTION 


$PUTLINX 


Workstation, Display Message 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS 


Syntax : JPUTLINX (message, &hor, &ver) 
Result : DSCCODE ■ 


Entry 1 : 
Entry 2 : 
Entry 3 : 

* Exit 2: 

* Exit 3: 


message A CHAR; Message terminated by $ES 
hor BYTE; Initial hor curs pos(SWSLC) 

ver BYTE; Initial ver curs pos(SWSBL-x) 

hor BYTE; Ending cursor position 

ver BYTE; Ending cursor position 


If Error: IF SPUTLINX (...) && DJCFLAG THEN $ERMSG (); 
Remarks : Entry requires $WSI0 mode bits in PUTWSMD$ 
(usually 0's). SWCONFIG for screen size. 

SPRM Ref: PUTLINXS Vol.2Sec. 7.1 
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$PUTLNP 


FUNCTION 


$PUTLNP 


Workstation, Home-Down Roll, Display from $MSG 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS 


Syntax : SPUTLNP (Ahor, Aver) 
Result : DiCCODE 


Entry 1 : hor 
Entry 2 : ver 

* Exit 1: hor 

* Exit 2: ver 


BYTE; Initial hor curs pos(SWSLC) 
BYTE; Initial ver curs pos(SWSBL-x) 
BYTE; Ending cursor position 
BYTE; Ending cursor position 


If Error : IF SPUTLNP (...) && DSCFLAG THEN SERMSG (); 
Remarks : Entry requires $WS10 mode bits in PUTWSMDS 

(usually 0's). Message is in $MSG externally 
defined buffer. SWCONFIG for screen size. 
SPRM Ref: PUTLNPS Vol.2Sec. 7.1 


$PUTLNPX 


FUNCTION 


$PUTLNPX 


Workstation, Display from $MSG 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS 


Syntax : SPUTLNPX (ihor. Aver) 
Result : DSCCODE 


Entry 1 : hor 
Entry 2 : ver 

* Exit 1: hor 

* Exit 2: ver 


BYTE; Initial hor curs pos(SWSLC) 
BYTE; Initial ver curs pos(SWSBL-x) 
BYTE; Ending cursor position 
BYTE; Ending cursor position 


If Error: IF SPUTLNPX (...) && DSCFLAG THEN SERMSG (); 
Remarks : Entry requires SWSIO mode bits in PUTWSMDS 

(usually 0's). Message is in SMSG externally 
defined buffer. SWCONFIG for screen size. 
SPRM Ref: PUTLNPXS Vol.2Sec. 7.1 
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$PUTLOG 


FUNCTION 


$PUTLOG 


Workstation, Home-Down Roll, Log Message 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$UFRWS 

Syntax : SPUTLOG ( message , Ahor, Aver) 

Result : DSCCODE 


Entry 1 : 
Entry 2 : 
Entry 3 : 

* Exit 2: 

* Exit 3: 


message A CHAR; Message terminated by $ES 

hor BYTE; Initial hor curs pos($WSLC) 

ver BYTE; Initial ver curs pos(SWSBL-x) 

hor BYTE; Ending cursor position 

ver BYTE; Ending cursor position 


If Error : IF $PUTL0G (...) && DSCFLAG THEN SERMSG ( ); 
Remarks : Entry requires SWSIO mode bits in PUTWSMDS 
(usually 0's). $WC0NFIG for screen size. 

SPRM Ref: PUTLOGS Vol.2Sec. 7.1 


$PUTLOGX 


FUNCTION 


$PUTLOGX 


Workstation, Log Message 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$UFRWS 

Syntax : $PUTL0GX ( message , Ahor, Aver) 

Result : DSCCODE 


Entry 1 : 
Entry 2 : 
Entry 3 : 

* Exit 2: 

* Exit 3: 


message A CHAR; Message terminated by $ES 

hor BYTE; Initial hor curs pos(SWSLC) 

ver BYTE; Initial ver curs pos($WSBL-x) 

hor BYTE; Ending cursor position 

ver BYTE; Ending cursor position 


If Error: IF $PUTL0GX (...) && DSCFLAG THEN SERMSG (); 
Remarks : Entry requires SWSIO mode bits in PUTWSMDS 
(usually 0's). SWCONFIG for screen size. 

SPRM Ref: PUTLOGXS Vol.2Sec. 7.1 
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$PUTNOP 


FUNCTION 


$PUTNOP 


Workstation, Home-Down Roll, Log/Display from SMSG 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : D$UFRWS 


Syntax : SPUTNOP (ihor, iver) 

Result : DSCCODE 


Entry 1 : hor 
Entry 2 : ver 

* Exit 1: hor 

* Exit 2: ver 


BYTE; Initial hor curs pos(SWSLC) 
BYTE; Initial ver curs pos(SWSBL-x) 
BYTE; Ending cursor position 
BYTE; Ending cursor position 


If Error: IF SPUTNOP (...) && DSCFLAG THEN SERMSG (); 
Remarks : Entry requires $WS10 mode bits in PUTWSMDS 

(usually 0's). Message is in $MSG externally 
defined buffer. SWCONFIG for screen size. 
SPRM Ref: PUTN0P$ Vol.2Sec. 7.1 


$PUTNOPX f unct ion $PUTNOPX 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
Entry 2 : 

* Exit 1: 

* Exit 2: 

If Error: 
Remarks : 


SPRM Ref: 


Workstation, Log/Display from $MSG 
User Function Routine 

82 Jul 01 Updated : 83 Jul 01 

DSUFRWS 

SPUTNOPX (ihor, iver) 

DSCCODE 

hor BYTE; Initial hor curs pos($WSLC) 

ver BYTE; Initial ver curs pos(SWSBL-x) 

hor BYTE; Ending cursor position 

ver BYTE; Ending cursor position 

IF SPUTNOPX (...) && OSCFLAG THEN SERMSG ( ); 
Entry requires SWSIO mode bits in PUTWSMDS 
(usually 0's).Message is in $MSG externally 
defined buffer. SWCONFIG for screen size. 
PUTNOPXS Vol.2 Sec. 7.1 
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$PUTNOTE 


FUNCTION 


$PUTNOTE 



Category : User Function Routine 

Entered : 82 Ju1 01 Updated : 83 Jul 01 

File : DSUFRWS 


Syntax : SPUTNOTE (message, ihor, &ver) 
Result : D$CC0DE 


Entry 1 : message A CHAR; Message terminated by SES 
Entry 2 : hor BYTE; Initial hor curs pos(SWSLC) 

Entry 3 : ver BYTE; Initial ver curs pos(SWSBL-x) 

* Exit 2: hor BYTE; Ending cursor position 

* Exit 3: ver BYTE; Ending cursor position 

If Error: IF SPUTNOTE (...) && DSCFLAG THEN SERMSG (); 
Remarks : Entry requires $WS10 mode bits in PUTWSMD$ 
(usually 0's). SWCONFIG for screen size. 

SPRM Ref: PUTNOTES Vol.2Sec. 7.1 


$PUTNOTX F unction $PUTNOTX 


Workstation, Log/Display Messac 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DSUFRWS 


Syntax : SPUTNOTX (message, &hor, Aver) 
Result : DtCCODE 


Entry 1 : message A CHAR; Message terminated by $ES 
Entry 2 : hor BYTE; Initial hor curs pos(SWSLC) 

Entry 3 : ver BYTE; Initial ver curs pos(SWSBL-x) 

* Exit 2: hor BYTE; Ending cursor position 

* Exit 3: ver BYTE; Ending cursor position 

If Error: IF SPUTNOTX (...) && DSCFLAG THEN SERMSG (); 
Remarks : Entry requires SWSIO mode bits in PUTWSMDS 
(usually 0's). SWCONFIG for screen size. 

SPRM Ref: PUTNOTXS Vo 1.2 Sec. 7.1 
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RASLEND$ 


FUNCTION 


RASLEND$ 


Turn Off RASL Traps in Program Running RASL 
Category: DASL External Function 

Entered : 83 Jul 19 Updated : 84 Jul 25 | 

File : D$INC 

Syntax : RASLENDJ () 

Result : DJCCODE I 

If Error: IF RASLENDJ (...) && DJCFLAG THEN JERMSG (); I 

Remarks : This function may be called in a program 
that initially was running RASL. 

There is a separate RASL Document: 

The RASL Report: A Symbolic Debugger for DASL 


RASLRES$ FUNCTION RASLRES$ 

Invoke the DASL Debugger 

Category: DASL External Function 

Entered : 82 Jul 01 Updated : 84 Jul 25 | 

File : D$INC 

Syntax : RASLRESJ () 

Result : DJCCODE I 

If Error: IF RASLRESJ (...) && DJCFLAG THEN JERMSG (); | 
Remarks : The RASLRESJ module can be invoked through 

an option on the command line; DASL/CHN;DBUG. 
There is a separate RASL Document: 

The RASL Report: A Symbolic Debugger for DASL 
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RECURSIVE 


FUNCTION 


RECURSIVE 


Specifies Function may be Called Recursively 
Category: OASL Declaration Word 

Entered : 82 Jul 01 Updated : 82 Dec 01 

Syntax : RECURSIVE func (params) resultType:=statmnt ; 
DASL Doc: 24,77,78 March 1982 

$RELFAVS function $RELFAVS 

Release All Locked FAV's 


Category: System Call 

Entered : 82 Dec 01 Updated : 83 Feb 01 

File : D$RMSSPEC 

Syntax : SRELFAVS () 

Result : DSCCODE 

If Error: IF SRELFAVS (...) && DSCFLAG THEN $ERMSG (); 
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$RENENV 


FUNCTION 


$RENENV 


Multi-Resource, Change a Disk File Name 


Category: 

System Call 


Entered : 

82 Jul 01 

Updated : 84 Jul 25 |* 

File 

DSRMSIO 


Syntax : 

JRENENV (openpt) 


Result : 

DSCCODE 


Entry 1 : 

openpt A JOPENPT; 

PFDB of open file with |* 

new name and HSI j* 

If Error: 

IF $RENENV (...) && D$CFLAG THEN SERMSG ( ); 


$ ERRC.$ FUNC = SCSRENENV 

SERRC.SCODE = Single- and multi-file I* 

$ECUMAV,$ECSI001,$ECSI005,$ECS1007, |* 

$ECSI010,$ECSI021,$ECSI030,$ECSI031, I* 
$ECSI033,JECSI045 I* 

Multi-file resources only j* 
SECSI012,SECS 1013,SECS 1014,$ECSI015, |* 
$ECSI016,$ECSI024 |* 

SPRM Ref: %RENENV Vol.4Sec. 8.4.6 

$REOPEN function $REOPEN 

Multi-Resource, Reopen a File With New Passwords 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 |* 

File : DSRMSIO 

Syntax : JREOPEN (openpt) 

Result : DSCCODE 

Entry 1 : openpt A SOPENPT; of file opened in SOMEXCL |* 

mode j* 

If Error: IF SREOPEN (...) && DSCFLAG THEN SERMSG (); 
SERRC .$FUNC = SCSREOPEN 

$ERRC. $ CODE = SECUMAV,SECSI001,SECSI005, |* 

$ECSI007,$ECSI010,$ECSI012,$ECSI014,$ECSI016, |* 
SECS 1021,$ECS 1025,$ECS 1028,$ECS 1045,SECS 1053, |* 
SPRM Ref: SREOPEN Vol.4Sec. 8.4.2 
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RESULT 


FUNCTION 


RESULT 


Assign a Value to the Result of a Function 

Category : DASL Control Word 

Entered : 83 Jul 19 Updated : 

Syntax : RESULT := expression; 

Remarks : This is used when writing the code to define 
a "function" type variable. 

Assigning a value to a Macro function 
(like all of these RMS System Function 
interfaces) is done in a DEFINE statement. 

If the last expression in the DEFINE 
statement is NOT an assignment, but an 
expression (like a variable name or 
parameter), that value will be assigned 
to the Macro as a "resultant" value. 

DASL Doc: 77,78 February 1983 

See Also: DEFINE 
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$RFIAKS 


FUNCTION 


$RFIAKS 


Return From Abort Key Seq Interrupt 
Category: System Call 

Entered : 83 Apr 02 Updated : 83 Jul 19 

File : DSRMSPROG 

Syntax : SRFIAKS (loc, trc) 

Result : DSCCODE 

Entry 1 : loc A $ I NTS ; State table 

Entry 2 : trc BYTE; 0 resets trap, or SRFITRC 

If Error: IF SRFIAKS (...) && DSCFLAG THEN SERMSG (); 
SERRC.SFUNC = SCSRFI 
SERRC.SCODE = $ECRFI0,SECRFI1 


$RFIDKS function $RFIDKS 

Return from STRAPDKS Interrupt 

Category: System Call 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSRMSPROG 

Syntax : SRFIDKS (loc, trc) 

Result : D$CCODE 

Entry 1 : loc A SINTS; State table 

Entry 2 : trc BYTE; 0 resets trap, or SRFITRC 

If Error: IF SRFIDKS (...) && DSCFLAG THEN SERMSG (); 
SERRC.SFUNC = SCSRFI 
SERRC.SCODE = $ECRF10,$ECRF11 
See Also: STRAPSET for general info.; 

STRAPDKS for calling routine 

SPRM Ref: SRFIDKS Vol.4Sec. 4.5.4 
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$RFIFK 


FUNCTION 


$RFIFK 


Return from STRAPFK Interrupt 


Category : System Call 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSRMSPROG 


Syntax : $RFIFK (loc, trc, noFifoCk) 
Result : DSCCODE 


Entry 1 : loc A $INTS ; State table 

Entry 2 : trc BYTE; 0 resets trap, or SRFITRC 

Entry 3 : noFifoCk BOOLEAN; Alternate mode if true 

If Error : IF $RFIFK (...) && DSCFLAG THEN SERMSG (); 

$ ERRC.$ FUNC = SC$RFI 
$ERRC.$C0DE = $ECRFI0,$ECRFI1 
Remarks : Nucleus mechanism is such that SRFIFK is 

ineffective if the FIFO buffer has characters 
in it, so put a jump to some location in the 
user program following SRFIFK call. 

See Also: STRAPSET for general info 
SPRM Ref: SRFIFK Vol.4Sec. 4.5.6 


$RFIKKS 


FUNCTION 


$RFIKKS 


Return From STRAPKKS Interupt 


Category: System Call 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSRMSPROG 


Syntax : SRFIKKS (loc, trc) 
Result : DSCCODE 


Entry 1 : loc A $INTS; State table 

Entry 2 : trc BYTE; 0 resets trap, or SRFITRC 


If Error: IF SRFIKKS (...) && DSCFLAG THEN SERMSG (); 
S ERRC.$ FUNC = SCSRFI 
SERRC.SCODE = SECRFIO.SECRFI1 
See Also: STRAPSET for general info. 

SPRM Ref: SRFIKKS Vol.4Sec. 4.5.2 
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$RFILKS 


FUNCTION 


$RFILKS 


Return From STRAPLKS Interupt 
Category: System Call 

Entered : 83 Jul 19 Updated : 

File : DSRMSPROG 

Syntax : JRFILKS (loc, trc) 

Result : DtCCODE 

Entry 1 : loc A $INTS; State table 

Entry 2 : trc BYTE; 0 resets trap, or $RFITRC 

If Error: IF JRFILKS (...) && DSCFLAG THEN $ERMSG ( ); 

$ERRC.$FUNC = SCSRFI 
SERRC.SCODE = SECRF10,$ECRF11 
See Also: JTRAPSET for general info. 

STRAPLKS for calling routine 
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$RMSMSG 


FUNCTION 


$RMSMSG 


Err-Msq, RETURN RMS MESSAGE 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRERR 

Syntax : SRMSMSG (Slength) 

Result : DtCCODE 

* Exit 1: length BYTE; 

If Error: IF JRMSMSG (...) && DSCFLAG 
THEN (I/O error); 

Remarks : The SERRC 2 byte variable contains the 

Function and Error codes obtained from the 
previous function that was called and 
detected an error. 

$RMSMSG is similar to SMSGC but does not 
abort by calling $ ERROR. This is used to only 
display errors detected that are not fatal. 

See Also: $MSGC for fatal case messages 

SPRM Ref: RMSMSGS Vo 1.2 Sec. 3.3.5 
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$RUN 


FUNCTION 


$RUN 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
Entry 2 : 
Entry 3 : 

If Error: 


Remarks : 


SPRM Ref: 


Load and Run a Program 


System Call 

82 Jul 01 Updated : 84 Jul 25 |* 

DSRMSPROG 

$RUN (pfdb, Isn , asls) 

DSCCODE 

pfdb A $PFDB; 
lsn UNSIGNED; 

asls BOOLEAN; ? 

IF $RUN (...) && DSCFLAG THEN $ERMSG (); 

$ERRC.$FUNC = SCSRUN 

$ERRC.$C0DE = $ECUMAV,$ECSI001,$ECSI005, |* 

SECSI010 |* 

Note: 

$RUN does not normally return, it runs a 
new program. Also can return to Command 
Interpreter with following codes on top of 
stack: $CISMEM,SCISFMT,SCISREAD. 

$$RUN Should be used to guarantee 
compatibility with interface compatibility 
of CHAIN and LOG utilities. 

$RUN Vol.4 Sec. 4.1 
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$$RUN 


FUNCTION 


$$RUN 


Workstation, Interface to $RUN System Call 

Category : User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRWS 

Syntax : $$RUN (pfdb, Isn) 

Result : DiCCODE 

Entry 1 : pfdb A $PFDB; 

Entry 2 : lsn UNSIGNED; 

If Error : IF $$RUN (...) && DSCFLAG THEN SERMSG (); 
Remarks : $$RUN Should be used to guarantee 

compatibility with interface compatibility 
of CHAIN and LOG utilities. 

See Also: $RUN for error messages 
SPRM Ref: RUNS Vol.2 Sec. 7.22 
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SSCANCFG 


FUNCTION 


SSCANCFG 



Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 23 

File : DSUFRSCAN 

Syntax : SSCANCFG (pfdb, cfghdr) 

Result : DSCCODE 


Entry 1 : pfdb A SPFDB; 

Entry 2 : cfghdr A SCFGHDR; 

If Error: IF SSCANCFG (...) && DSCFLAG 
THEN { 

IF (SERRC.SFUNC = SCSSECR | 
SERRC.SFUNC = SCSSECWAIT) 

THEN {I/O errorl 

ELSE {header not found in file}; 

i; 


Remarks : used to declare data structures for specifying 
contents of a user configuration file, scan 
data and determine results 
SPRM Ref: SCANCFGS Vol.2Sec. 6.7.4 
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SSCANFLS 


FUNCTION 


$SCANFLS 


Cmdlnt, Scan File Specs According to Table 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 30 

File : D$RMS 


Syntax : SSCANFLS (fileSpk, num) 
Result : DiCCODE 


Entry 1 : fileSpk A SFILESPK; Table of file specs 
Entry 2 : num BYTE; Number of specs to scan 


If Error : IF SSCANFLS (...) U DSCFLAG THEN JERMSG (); 
$ ERRC.$ FUNC = SUECSFL 
SERRC.SCODE = $UECSFL0,SUECSFL1,SUECSFL2, 
SUECSFL3,SUECSFL4 

Remarks : Evaluates first by symbolic file names, 
then by positional file names. 

SPRM Ref: SCANFLSS Vol.2Sec. 6.1.2 


$SCANFS FUNCTION $SCANFS 


Cmdlnt, Scan a File Specification 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 23 

File : DSUFRSCAN 


Syntax : SSCANFS (iscanpt, sfent) 
Result : DfCCODE 

Use : IF SSCANFS (...) && D$ZFLAG=0 
THEN (invalid terminator); 


Entry 1 : scanpt A CHAR; 

Entry 2 : sfent A SSFENT; 

* Exit 1 : scanpt A CHAR; 


If Error: none occurs 

Remarks : scans a string of operands delimited by 
standard characters (:,/,=) and breaks 
data into 4 right-blank-filled fields. 
SPRM Ref: SCANFSJ Vol.2Sec. 6.1.3 
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SSCANHSI 


FUNCTION 


$SCANHSI 


Environment, Compress HSI 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DJUFRENV 

Syntax : SSCANHSI (source, dest, Ssend, Sdend) 

Result : DSCCODE 

Assign : varRslt :=$SCANHSI (source,dest,Ssend,Sdend); 
IF varRslt && D$CFLAG=0 & varRslt && 
D$ZFLAG=0 THEN (non-null HSI scanned); 

IF varRslt && D$CFLAG=0 & varRslt && 

DJZFLAG THEN (null HSI scanned); 


Entry 1 : source A CHAR 

Entry 2 : dest A CHAR 

* Exit 3: send A CHAR 

* Exit 4: dend A CHAR 


If Error: IF varRslt && OSCFLAG 

THEN (invalid HSI format); 

SPRM Ref: SCANHSI$ Vol.2Sec. 2.12 


$SCANNB f unct ion $SCANNB 

Cmdlnt, Scan to Next Non-Blank 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DJUFRSCAN 

Syntax : JSCANNB () 

Result : CHAR 

If Error: No Error Occurs 

SPRM Ref: SCANNB$ Vol.2Sec. 6.3 
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SSCANOS 


FUNCTION 


$SCANOS 


Cmdlnt, Scan Options Specification 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSRMS 

Syntax : SSCANOS (option) 

Result : D$CCODE 

Entry 1 : option A $0PTION ; Start of One or more 


If Error: IF SSCANOS (...) && DSCFLAG THEN SERMSG ( ); 
$ ERRC.$ FUNC = SUECSOS 

SERRC.SCODE = $UECSOS0,$UECSOS 1,$UECSOS2, 
$UECS0S3,SUECS0S4 

Remarks : After calling SSCANOS, test fields 
S0PTI0N .SOPTFLG and S0PTI0N.S0PTVAL 
SPRM Ref: SCANOSS Vol.2Sec. 6.2.3 


$SCANSYM 


FUNCTION 


$SCANSYM 


Cmdlnt, Scan a Symbol 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 23 

File : DSUFRSCAN 

Syntax : SSCANSYM (max, output) 

Result : DSCCODE 


Entry 1 : max BYTE; 

Entry 2 : output A CHAR; 

If Error: IF SSCANSYM (...) 44 DSCFLAG 
THEN (symbol was truncated) 

Remarks : scans a single symbol from a string and puts 
it into output area...terminates on first 
delimiter encountered in input string 
SPRM Ref: SCANSYMS Vol.2Sec. 6.4 
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$SCANWRD 


FUNCTION 


$SCANWRD 


Cmdlnt, Scan Two Word Lists for Matches 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 23 

File : DSUFRSCAN 

Syntax : JSCANWRD (input, check, icount) 

Result : DSCCODE 

Entry 1 : input A CHAR; potentially duplicated words 

Entry 2 : check A CHAR; list to check against 

* Exit 3: count A BYTE; string of numbers 

whose position corresponds to 
the word position in input 
string and value corresponds 
to number of occurances 
found in check string 

If Error: IF SSCANWRD (...) && DSCFLAG THEN 

(duplicate words were found in "input" list); 

Remarks : Word lengths limited to 12 characters long... 

Word list can be up to 8 words long and are 
separated by comma and terminated by $ES 

SPRM Ref: SCANWRDS Vo 1.2 Sec. 6.5 
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SSDIVID3 


FUNCTION 


$SDIVID3 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Use : 


Entry 1 : 
Entry 2 : 

* Exit 3: 

* Exit 4: 

If Error: 
SPRM Ref: 


Numeric, Signed 24-bit Division 

User Function Routine 

82 Jul 01 Updated : 83 Apr 23 

DSUFRNUM 

JSDIVID3 (dvisor,dvidendJquotnt,&remaindr) 
DSCCODE 

IF SSDIVID3 (...) && DJZFLAG 
THEN (division by zero attempted); 

dvisor ULONG; Divisor 
dvidend ULONG; Dividend 
quotnt ULONG; Quotient 
remaindr ULONG; Remainder 

No Error Occurs 

SDIVID3J Vol.2 Sec. 4.17 
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$SECCHK 


FUNCTION 


$SECCHK 


Check Operation Status 

Category. System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 

File : 0SRMSI0 

Syntax : SSECCHK (pfdb, istatus) 

Result : D$CCODE 

Entry 1 : pfdb A $PFDB; 

* Exit 2: status SSECSTAT; 

If Error : IF $SECCHK (...) && DSCFLAG THEN SERMSG (); 

$ERRC.$FUNC = SCSSECCHK 
See Also: SSECW for error codes. 

SSECWAIT for more efficient use of processor 
(by other tasks), which does effectively a 


loop on 

SSECCHK. 



SPRM Ref : SSECCHK 

Vol .4 

Sec. 

7.9 

SPRM Ref: SSECCHK 

Vo 1.4 

Sec. 

8.5.3 

SPRM Ref: SSECCHK 

Vol .4 

Sec. 

9.1.2.3 

SPRM Ref: SSECCHK 

Vol .4 

Sec. 

9.2.2.2 

SPRM Ref: SSECCHK 

Vol .4 

Sec. 

9.3.2.5 

SPRM Ref: SSECCHK 

Vol .4 

Sec. 

9.4.2.4 

SPRM Ref: SSECCHK 

Vol .4 

Sec. 

10.3.4 
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$SECEOF 


FUNCTION 


$SECEOF 


Category 

Entered 

File 

Syntax 
Result : 

Entry 1 
Entry 2 
Entry 3 
* Exit 4 

If Error 


SPRM Ref 
SPRM Ref 
SPRM Ref 
SPRM Ref 


Obtain or Set End Of File Location 


System Call 

82 Jul 01 Updated : 84 Jul 25 j 

D$ RMS 10 

SSECEOF (mode, pfdb, wByte, irByte) 

DSCCODE 

mode BYTE; SEOFGET, SEOFSET, SEOFWRIT 

pfdb A SPFDB; 

wByte BYTE; 

rByte BYTE; 

IF SSECEOF (...) && DSCFLAG THEN SERMSG ( ); 

SERRC.SFUNC = SCSSECEOF 
$ ERRC. SCODE = $ECUMAV,$ECS 1001,$ ECS 1005, 

SECSI007,$ECSI009,$ECSI010,$ECSI012, | 

SECS 1013,SECS 1015,SECS 1021,SECS 1032, I 

SECSI034,SECSI045 I 

SSECEOF Vo 1.4 Sec. 7.11 

SSECEOF Vol.4 Sec. 8.5.5 

SSECEOF Vo 1.2 Sec. 13.5.3 

SSECEOF Vol.2 Sec. 13.5.4 
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$SECR 


FUNCTION 


$SECR 


Block Read 


Category. System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 | 

File : DSRMSIO 

Syntax : $SECR (pfdb, wait) 

Result : DfCCODE 

Entry 1 : pfdb A $PFDB; 

Entry 2 : wait BOOLEAN; 

If Error : IF $SECR (...) && D$CFLAG THEN SERMSG ( ); 
SERRC.SFUNC = SCJSECR 

$ERRC.$C0DE = The following error codes are | 
common to SSECR and SSECRO: | 

SPTFREAD error codes I 

SECUMAV,SECS 1001,SECS 1004,SECS 1005, | 

SECS 1006,SECS 1007,SECS 1010,SECS 1016, | 

SECS 1017,SECS 1018,SECS 1025,SECS 1029 | 

SECSI046 | 

SPTFREWND error codes I 

SECS 1001,SECS 1005,SECS 1006,SECS 1007, | 

SECS 1010,SECS 1016,SECS 1017,SECS 1018, | 

SECSI025,SECSI0 29, I 

Remarks : Whenever a SSECR, SSECRO, SSECW, or SSECWO | 
is initialized, no other operation may be | 
attempted to that FAV except SSECCHK, | 

SSECWAIT, or SWAITIO. | 

Status returned immediately will be : I 

Operation in Progress IF initialization is j 
successful or Operation Complete IF there is j 
an entry parameter error. j 


See Also : SSECW for 

error codes 


SPRM Ref: SSECR 

Vol.4 

Sec. 

7.7 

SPRM Ref: SSECR 

Vol .4 

Sec. 

8.5.1.1 

SPRM Ref: SSECR 

Vol.4 

Sec. 

9.1.2.1 

SPRM Ref: SSECR 

Vol .4 

Sec. 

9.3.2.2 

SPRM Ref: SSECR 

Vol .4 

Sec. 

9.4.2.2 

SPRM Ref: SSECR 

Vol .4 

Sec. 

10.3.2 

SPRM Ref: SSECR 

Vol .2 

Sec. 

13.5.1 
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$SECRO 


FUNCTION 


$SECRO 


Block Read Optimum 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 |* 

File : DSRMSIO 


Syntax : $SECR0 (pfdb, wait) 
Result : DfCCODE 


Entry 1 : pfdb A SPFDB; 

Entry 2 : wait BOOLEAN; 

If Error: IF JSECRO (...) && D$CFLAG THEN SERMSG (); 
$ERRC.$FUNC = SCSSECRO 

Remarks : synchronizes number of sectors to those in a |* 
track boundary |* 

See Also: SSECR and $SECW for error codes j* 

SPRM Ref: SSECRO Vol.4Sec. 7.7 

SPRM Ref: %SECRO Vol.4Sec. 8.5.1.2 

SPRM Ref: $SECR0 Vol.4Sec. 9.1.2.1 

SPRM Ref: %SECRO Vol.4Sec. 9.4.2.2 

SPRM Ref: $SECRO Vol.4 Sec. 10.3.2 
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$SECURE 


FUNCTION 


$SECURE 


Multi-Resource, Change Disk File Security 


Category : System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 |* 

File : DSRMSIO 


Syntax : SSECURE (mode, loc) 
Result : DtCCODE 


Entry 1 : mode BYTE; SSSGET,SSSPUT,SSSGETX,SSSPUTX 
Entry 2 : loc a JSECURETBL; 


If Error: IF SSECURE (...) && DSCFLAG THEN SERMSG (); 
$ ERRC. $ FUNC = SCSSECURE 
$ERRC.$C0DE = SECUMAV, JECSI001,SECSI005, 

JECSIOO7,$ECSI010,SECS 1012,$ECS1013, 
SECSI014,$ECSI015,SECS 1016,SECS 1021, 
SECS 1034,SECS 1037,SECS 1042,SECS 1045 
Remarks : File must be open in SOMEXCL mode with 


SACSECQ set. 


SPRM Ref: SSECURE Vol.4Sec. 8.4.7 



$SECW FUNCTION $SECW 

Block Write 

Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 |* 

File : DSRMSIO 

Syntax : $SECW (pfdb, wait) 

Result : DtCCODE 

Entry 1 : pfdb A $PFDB; 

Entry 2 : wait BOOLEAN; 

If Error: IF JSECW (...) && DSCFLAG THEN SERMSG ( ); 
SERRC.SFUNC = SCSSECW 

SERRC.SCODE = ...see next page. I* 

.... continued 
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SSECR, $SECRO, SSECW, SSECWO, SSECWAIT, |* 
and JSECCHK share the following error codes:j* 


All resources 

SECUMAV,SECSI001, 
JECSI004,SECSI005 
SECSI017,SECSI039 
Disk resources 

SECSI006,SECSI008 
SECSI012,SECSI013 
SECSI016,SECSI018 
SECSI046.SECSI058 
Pipe resources 

$ECSI016,$ECSI019 
$ ECS 1052 

Printer resources 

$ECSI045,$ECSI062 
Tape resources 

SECSI006,SECSI009 
SECSI019,SECSI046 
Card reader resources 
$ ECS 1008,$ECSI016 
Conrni resources 
$ ECS 1044 

Receiving a RIM messag 

SECUMAV,SECSI001, 
$ECSI004,$ECSI005 
$ECSI017,$ECSI039 


SECSI002.SECSI003, 

,$ECSI007,$ECSI010, 


,$ECSI009,$ECSI011, 

,$ECSI014,$ECSI015, 

,SECSI026,SECSI045, 


,$ECSI045,$ECSI051 J 


,$ECSI016,$ECSI018, 


,$ECSI047,$ECSI048 


SECSI002,$ECSI003, 
,$ECSI007,$ECSI010, 
,$ ECS 1045 


The following error codes are common 
ONLY to SSECW and $SECW0: 


SDC150 error codes 

SECUMAV,SECSI001,$ECSI004,SECSI005, |* 

SECS 1006,SECS 1007,SECS 1009,SECS 1010, |* 

SECS 1016,SECS 1017,SECS 1018,SECS 1025, |* 

$ ECS 1029,$ECSI046 I* 

SPRM Ref: SSECW Vol.4Sec. 7.8 

SPRM Ref: SSECW Vol-.4Sec. 8.5.2.1 

SPRM Ref: SSECW Vol.4Sec. 9.1.2.2 

SPRM Ref: SSECW Vol.4Sec. 9.2.2.1 

SPRM Ref: SSECW Vol.4Sec. 9.3.2.3 

SPRM Ref: SSECW Vol.4Sec. 9.4.2.3 

SPRM Ref: SSECW Vol.4 Sec. 10.3.3 

SPRM Ref: SSECW Vol.2 Sec. 13.5.2 
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$SECWAIT 


FUNCTION 


$SECWAIT 


Wait for Operation Complete 
Category : System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 p 

File : DJRMSIO 

Syntax : JSECWAIT (pfdb, istatus) 

Result : D$CCODE 


Entry 1 : pfdb A $PFDB; 

* Exit 2: status JSECSTAT; 


If Error: 

See Also: 
SPRM Ref: 
SPRM Ref: 
SPRM Ref: 
SPRM Ref: 
SPRM Ref: 
SPRM Ref: 
SPRM Ref: 


IF JSECWAIT (...) && DSCFLAG THEN SERMSG ( ); 

$ERRC.$FUNC = SCSSECWAIT 
SSECW for error codes 
SSECWAIT Vol.4 Sec. 7.10 

SSECWAIT Vol.4 Sec. 8.5.4 

SSECWAIT Vol.4 Sec. 9.1.2.3 

JSECWAIT Vol.4 Sec. 9.2.2.3 

JSECWAIT Vol.4 Sec. 9.3.2.4 

JSECWAIT Vol.4 Sec. 9.4.2.5 

JSECWAIT Vol.4 Sec. 10.3.5 
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$SECWO 


FUNCTION 


$SECWO 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
Entry 2 : 

If Error: 

Remarks : 

See /4/so: 

SPRM Ref: 


SET 

Define 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Use : 

Remarks : 


See Also: 


Block Write Optimum 


System Call 

82 Jul 01 Updated : 84 Aug 08 

DSRMSIO 

$SECW0 (pfdb, wait) 

DSCCODE 

pfdb a $PFDB; 
wait BOOLEAN; 

IF JSECWO (...) && DSCFLAG THEN $ERMSG ( ); 

SERRC.$ FUNC = SCSSECWO 

synchronizes number of sectors to those in 

track boundary 

SSECW for error codes 

SSECWO Vo 1.4 Sec. 7.8 


FUNCTION 


SET 


'ariable Type BYTE and Define Powers of 2 
DASL Include Macro 

82 Jul 01 Updated : 83 Jul 10 

D$ INC 

SET (argl, arg2 __ arg8) 

BYTE 

TYPDEF xvar SET (argl, arg2, - argB); or 

xvar SET (argl, arg2_ _ arg8); 

TYPDEF xvar SET (argl, arg2,_arg8); 

Equivalent to: 

TYPDEF xvar BYTE; 

DEFINE(argl,1) 

DEFINE(arg2,2) 

DEFINE(arg3,4) 

DEFINE(arg8,128) 

SETV for Ascending powers of two 
SETW for unsigned variables 
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FUNCTION 


$SETABTF 


$SETABTF 

Workstation, Set CHAIN Abort Flag 


Category: User Function Routine 


Entered 
File 


82 Jul 01 
DSUFRWS 


Updated : 84 Aug 08 


Syntax : $SETABTF (flag) 

Result : none 

Entry 1 : flag BYTE; SPCRAFGA in PCR 

If Error: No Error Occurs 

See Also: CHAIN Language in RMS User's Guide 

SPRM Ref: SETABTF$ Vol.2Sec. 7.17 


$SETIME 


FUNCTION 


$SETIME 


Set The Current System Time 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 01 | 

File : DSRMSGEN 


Syntax : $SETIME (src, utc) 

Result : DSCCODE 

Entry 1 : src A SSETTIMEP; 

Entry 2 : utc BOOLEAN; Use Alternate SC if TRUE 

If Error: IF SSETIME (...) && DSCFLAG THEN SERMSG (); 
$ERRC.$FUNC = S C $ S ETI ME 
$ ERRC.$C0DE = $ ECUMAV,$ ECSTM1,$ ECSTM 2, 

$ECSTM3 | 

Remarks : 9 byte field used to compensate for accuracy 
ageing, etc. of oscillator for system clock 
as well as to set clock 

When you use the alternate System Call, you | 

must use the syntax: j 

$SETIME (< A $SETIMEP> dest, TRUE) I 

where: dest is a A $SYSTINF0. I 

SPRM Ref: $SETIME Vol.4Sec. 3.2 
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$SETMAX 


FUNCTION 


$SETMAX 


Set Maximum Memory Requirement 


Category: System Call 

Entered : 83 May 03 Updated : 84 Jul 25 | 

File : DSRMSMEM 

Syntax : JSETMAX (max, Sold) 

Result : DSCCODE 

Entry 1 : max BYTE; Maximum 4k sectors to reserve 

* Exit 2: old BYTE; Previous number reserved 

If Error : IF SSETMAX (...) && DSCFLAG THEN $ERMSG (); 

SERRC.$ F UNC = SCSSETMAX 

$ERRC.SCOPE = SECSMAXO,SECSMAX1 | 


$SETMIN FUNC tion $SETMIN 


Set Minimum Memory Requirement 

Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 | 

File : DSRMSMEM 

Syntax : SSETMIN (nSec, &old) 

Result : DSCCODE 

Entry 1 : nSec BYTE; 4k sectors to be reserved 

* Exit 2: old BYTE; Previous number reserved 

If Error: IF SSETMIN (...) && DJCFLAG THEN SERMSG (); 
SERRC.SFUNC = SCSSETMIN 

SERRC.$?0DE = SECSMIN0,$ECSMIN1 | 

SPRM Ref: SSETMIN Vol.4Sec. 5.2.6 
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$SETPRI 


FUNCTION 


$SETPRI 


Set User Task Priority Level 


Category: System Call 

Entered : 82 Jul 01 Updated : 83 Jul 01 

File : DJRMSPROG 


Syntax : $SETPRI (pri, AprevPri) 
Result : DSCCODE 


Entry 1 : pri BYTE; 0 to SPRIMAX ($PRIN0RM) 

* Exit 2: prevPri BYTE; 0 is highest level 


If Error: No Error Occurs 

SPRM Ref: %SETPRI Vol.4Sec. 4.6 


$SETSQL 


FUNCTION 


$SETSQL 


Set Independent Task Security Level 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Aug 08 | 

File : DSRMSGEN 


Syntax : SSETSQL (sql, iold) 

Result : DSCCODE 

Entry 1 : sql BYTE; 0 to JSQLMAX 
* Exit 2: old BYTE; see also: SSQLCHEK, $SQLREPR 

If Error: No Error Occurs 

REMARKS : can be used to determine or set a task's 
security level, but cannot raise it above 
user's task level. 

SPRM Ref: SSETSQL Vol.4Sec. 3.3 
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SETV 


FUNCTION 


SETV 


Define 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Remarks : 


See Also: 
DASL Doc : 


SETW 

Define 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Use 


Remarks : 
See Also: 

DASL Doc: 


Ascending Powers of 2 from Initial Value 
DASL Include Macro 

82 Jul 01 Updated : 83 Jul 10 

D$ INC 

SETV (initialValue, argl, argZ, _ arg8) 

Defines values of argument identifiers 

SETV is similar to SET except that 

a) Defined values begin at the initialValue 
and may be as large as (2 to the 15th). 

b) SETV does not define a variable type. 

SET for powers of two and variable type BYTE 
SETW for unsigned variables 

90 March 1982 


FUNCTION 


SETW 


Variable Type UNSIGNED; Define Powers of 2 


DASL Include Macro 

82 Jul 01 Updated : 83 Jul 10 

D$ INC 


SETW (argl, arg2, - arg8) 

UNSIGNED 

TYPDEF xvar SETW (argl, arg2, - arg8); 

or xvar SETW (argl, arg2, _ argd); 

SETW is like SET except result is UNSIGNED 
SET for powers of two and variable type BYTE 
SETV for Ascending powers of two 
90 March 1982 
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SSIGNON 


FUNCTION 


SSIGNON 


Force User Signon 


Category: System Call 

Entered : 83 Apr 02 Updated : 

File : DJRMSPROG 


Syntax : $SIGN0N () 
Result : DSCCODE 


If Error : IF SSIGNON (...) && DSCFLAG THEN $ERMSG (); 

SERRC.SFUNC = SCSSIGNON 
$ERRC.$C0DE = ? 
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$SINDEP 


FUNCTION 


$SINDEP 


Category: 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 

Entry 2 : 
Entry 3 : 

* Exit 4: 

* Exit 5: 

If Error: 


Remarks : 

SPRM Ref: 


Start an Independent Task 
System Call 

82 Oul 01 Updated : 84 Jul 25 | 

DSRMSTASK 

SSINDEP (name, pfdb, pcrs, Ssecret, Sid) 

DSCCODE 

name A SNAMET; Symbolic name of task. 

Must be unique at node 
pfdb A SPFDB; PFDB of file to be loaded 
pcrs BYTE; MSN to be used as task PCR 
(Initialized by SNEWPCR ) 
secret UNSIGNED; The task's unique secret 
number; to use with STASKCTL 
id BYTE; If "secret" is not zero ? then 
this is tasks identification 

IF SSINDEP (...) && DSCFLAG THEN $ERMSG (); 

$ ERRC.$ FUNC = SCSSINDEP 

$ ERRC.$C0DE = SECUMAV,SECS 1001,SECTSK2, | 

SECTSK4,SECS 1005,$ECTSK6.SECTSK7, | 

SECTSK8,SECTSK9,SECSI010,SECTSK11, | 

SECTSK12,SECTSK13,SECTSK14,SECTSK15, | 

SECTSK16,SECTSK17,SECTSK18,SECSI030, | 

SECSI031 | 

Can return to CMD INT with codes on stack: 
Error Codes: SC ISFMT,SCISREAD,SCISMEM, 

SCISADR,SCISACC,SCISDUAL,SCISHAR.SCISYSTB, 
SCISVABT 

Logoff Message Numbers:$CIL0G0 thru SCIL0G9 
SSINDEP Vol.4 Sec. 6.4.1 
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SIZEOF 


FUNCTION 


SIZEOF 


Operator Which Gives Size in Bytes of Argument 

Category: DASL Reserved Word 

Entered : 82 Ju1 01 Updated : 82 Dec 01 

Syntax : SIZEOF [ expression] or [ < type > ] 

Result : UNSIGNED constant 

DASL Doc: 68 March 1982 

$SLOCAL FUNCTION $SLOCAL 

Start Local Task 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 | 

File : DSRMSTASK 

Syntax : $SL0CAL (name, sadr) 

Result : DSCCODE 

Entry 1 : name A SNAMET; 

Entry 2 : sadr JSTARTADR; 

If Error: IF SSLOCAL (...) M DJCFLAG THEN $ERMSG (); 

$ ERRC.$ FUNC = SCSSLOCAL 

$ERRC.$C0DE = $ECUMAV,$ ECTSK3,$ECTSK4, 

SECSI030,SECSI031 | 

SPRM Ref: SSLOCAL Vol.4Sec. 6.4.2 
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SSMLPLY3 


FUNCTION 


$SMLPLY3 


Numeric, Signed 24-bit Multiplication 

Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 23 

File : D$UFRNUM 

Syntax : $SMLPLY3 (vail, val2, Sresult) 

Result : DSCCODE 

Entry 1 : vail ULONG; Signed Multiplicand 

Entry 2 : va!2 ULONG; Signed Multiplier 

* Exit 3: result ULONG; Signed Product 

If Error : IF JSMLPLY3 (...) && D$CFLAG 

THEN (overflow on multiplication); 

SPRM Ref: SMLPLY3J Vol.2Sec. 4.16 


STATIC FUNCTION STATIC 

Prevents Re-allocation of Var. in Recur. Function 


Category : DASL Declaration Word 

Entered : 82 Jul 01 Updated : 83 Jul 19 

Syntax : VAR STATIC name type ; 

Remarks : The variable may also be initialized in the 
declaration statement. However, any static 
variable will be initialized only the first 
time the statement is executed. If the 
statement is inside a function definition, 
the variable will retain its previous value 
when the function is called after the first 
time, (the variable may be ASSIGNED new 
values like any other variable.) 

DASL Doc : 25,75,76 March 1982 
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$STOPIO 


FUNCTION 


$STOPIO 


Stop All Data Movement 
Category : System Call 

Entered : 82 Jul 01 Updated : 84 Aug 08 | 

File : D$RMSI0 

Syntax : JSTOPIO (mode, pfdb) 

Result : D$CCODE 

Entry 1 : mode BYTE; SSTOPALL, $ST0P0NE 

Entry 2 : pfdb A $PFDB; required for only JSTOPONE | 

If Error: IF SST0PI0 (...) && DJCFLAG THEN JERMSG (); 

$ERRC.$FUNC = SC$STOP 10 
$ERRC.SCODE = $ECUMAV,$ ECS 1001 
Remarks : Forces all I/O operations to complete ASAP. | 
SSECCHK or SSECWAIT can be used to see I 

operation status ($SECST0P will be set at j 

completion). j 


SPRM Ref: $STOP 10 

Vol .4 

Sec. 

7.13 

SPRM Ref: $STOP 10 

Vo 1.4 

Sec. 

8.5.7 

SPRM Ref: JSTOPIO 

Vol .4 

Sec. 

9.1.2.5 

SPRM Ref: $STOP 10 

Vol .4 

Sec. 

9.2.2.5 

SPRM Ref: $STOP 10 

Vol .4 

Sec. 

9.4.2.7 

SPRM Ref: $STOP 10 

Vol .4 

Sec. 

10.3.7 
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STRUCT 


FUNCTION 


STRUCT 


Named Member Consisting of Several Named Members 

Category : DASL Declaration Word 

Entered : 82 Jul 01 Updated : 83 Jul 19 

Syntax : x STRUCT {var type; var type;[..var type;]}; 

Remarks : A structure is any variable made up of more 
than one variable. 

DASL Doc : 16,59,60 March 1982 


SUBSTR FUNCTION SUBSTR 


Select Part of String, Begin at Start for Length 


Category : DASL Compiler Macro 

Entered : 82 Jul 01 Updated : 83 Jul 10 


Syntax : SUBSTR (string, startNumber, lengthNumber) 
Result : part of string, (0 is first character) 

See Also : DEFINE for string definition 

DASL Doc: 29,33,81-82 March 1982 
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SYSTEM 


FUNCTION 


SYSTEM 


Reserved for Future Code Generators 
Category : DASL Reserved Word 

Entered : 82 Jul 01 Updated : 82 Dec 01 

Syntax : None: Reserved Word 

$TAPEREWIND .unction $TAPEREWIND 

Rewind Tape 

Category: User Function Routine 

Entered : 83 Apr 02 Updated : 83 May 03 

File : DSUFRWFIO 

Syntax : $TAPEREWIND (fob) 

Result : D$CC0DE 

Entry 1 : fcb A $WFCB; 

If Error: IF $TAPEREWIND (...) && DJCFLAG THEN $ERMSG () 
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$TAPEUNLOAD 


FUNCTION 


$TAPEUNLOAD 


Rewind Tape and Unload 

Category. User Function Routine 

Entered : 83 Apr 02 Updated : 83 May 03 

File : DSUFRWFIO 

Syntax : JTAPEUNLOAD (fob) 

Result : DSCCODE 

Entry 1 : fcb A SWFCB; 

If Error: IF $TAPEUNL0AD (...) && D$CFLAG THEN $ERMSG () 


$TASKCTL 


FUNCTION 


$TASKCTL 


Exert Control Over an Independent Task 


Category: System Call 

Entered : 83 Apr 02 Updated : 84 Jul 25 | 

File : DSRMSTASK 


Syntax : $TASKCTL (mode, taskld, secretNm) 
Result : DSCCODE 


Entry 1 : mode 

Entry 2 : taskld 
Entry 3 : secretNm 


BYTE; JTCLOKS,$TCAKS,$TCDKS, 
$TCKKS,$TCFK 
BYTE; from SSINDEP 
UNSIGNED; from SSINDEP 


If Error : IF JTASKCTL (...) && DSCFLAG THEN $ERMSG ( ); 
SERRC.$FUNC = SCSTASKCTL 
$ERRC.$C0DE = $ECTCL0,$ECTCL1,$ECTCL2, 

$ ECTCL3 
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THEN 


FUNCTION 


THEN 


Part of IF THEN ELSE Execution Control 
Category : DASL Control Word 

Entered : 82 Jul 01 Updated : 83 Jul 10 

See Also: IF for usage syntax 

DASL Doc : 73 March 1982 


$TIMER 


FUNCTION 

$TIMER 


Reset 

System Timer 


Category: 

System Call 



Entered : 

82 Jul 01 

Updated : 

: 84 Jul 25 

File : 

D$RMSPR0G 




Syntax : STIMER (time, pfdb) 
Result : D$CCODE 


Entry 1 : time BYTE; 

Entry 2 : pfdb A $PFDB; 

If Error : IF $TIMER (...) && D$CFLAG THEN SERMSG (); 
JERRC.SFUNC = SCSTIMER 
$ ERRC.$ CODE = SECUMAV,SECSI001,SECSI007, 
$ECSI039,$ECSI041 

SPRM Ref: STIMER Vol.4Sec. 4.7 
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STRAPAKS 


FUNCTION 


STRAPAKS 


Trap Abort Key Sequence 


Category: System Call 

Entered : 83 Apr 02 Updated : 84 Jul 25 |* 

File : DSRMSPROG 


Syntax : STRAPAKS (loc, iprev) 
Result : DSCCODE 


Entry 1 : loc A SINTS; State Table 
* Exit 2: prev A SINTS; 

If Error: IF STRAPAKS (...) && DSCFLAG THEN SERMSG ( ); 

$ ERRC.$ FUNC = SCSTRAPSET |* 

SERRC.SCODE = SECTRAPO I* 

See Also: STRAPSET for general info, and SRFIAKS for j* 
return routine * 


STRAPDKS 


FUNCTION 


STRAPDKS 


Trap DISPLAY-CANCEL-DISPLAY Key Sequence 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 |* 

File : DSRMSPROG 


Syntax : STRAPDKS (loc, iprev) 
Result : DSCCODE 


Entry 1 : loc A SINTS; State table 
* Exit 2: prev A SINTS; 

If Error: IF STRAPDKS (...) && DSCFLAG THEN SERMSG ();|* 
$ ERRC.$ FUNC = SCJTRAPSET |* 

SERRC.SCODE = SECTRAPO |* 

See Also: STRAPSET for general info, and SRFIDKS for |* 
return routine I* 

SPRH Ref: STRAPDKS Vol.4Sec. 4.5.3 
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$TRAPFK 


FUNCTION 


$TRAPFK 


Trap Function Key Strokes 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 |* 

File : DSRMSPROG 


Syntax : STRAPFK (loc, iprev) 
Result : D$CCODE 


Entry 1 : loc A SINTS; State table 
* Exit 2: prev A SINTS; 

If Error : IF STRAPFK (...) && DSCFLAG THEN SERMSG (); |* 
$ERRC.$FUNC = SCSTRAPSET |* 

$ ERRC.SCODE = $ECTRAP0 I* 

See Also: JTRAPSET for general info, and $RFIFK for j* 
return routine I* 

SPRM Ref: STRAPFK Vol.4Sec. 4.5.5 


$TRAPKKS function $TRAPKKS 


Keyboard Key Sequence 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 25 |* 

File : DSRMSPROG 


Syntax : STRAPKKS (loc, iprev) 
Result : DSCCODE 


Entry 1 : loc A SINTS; State table 
* Exit 2: prev A SINTS; 


If Error: IF STRAPAKS (...) && DSCFLAG THEN SERMSG ();? 

SERRC.SFUNC = SCSTRAPSET I* 

SERRC.SCODE = SECTRAPO I* 

See Also: STRAPSET for general info, and SRFIKKS for j* 
return routine |* 

SPRM Ref: STRAPKKS Vol.4Sec. 4.5.1 
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STRAPLKS 


FUNCTION 


STRAPLKS 


Trap LOG-OFF Key Sequence 

Category : System Call 

Entered : 83 Jul 19 Updated : 84 Jul 25 | 

File : DSRMSPROG 

Syntax : STRAPLKS (loc, iprev) 

Result : D$CC0DE 

Entry 1 : loc A $ I NTS ; State table 

* Exit 2: prev A $ I NTS ; 

If Error : IF STRAPLKS (...) && DSCFLAG THEN SERMSG ();| 
$ ERRC.$ FUNC = SCSTRAPSET I 

$ ERRC.SCODE = SECTRAPO I 

See Also: STRAPSET for general info, and SRFILKS for | 
return routine I 
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$TRAPSET 


FUNCTION 


$TRAPSET 


Trap Setting System Call, Used Indirectly 
Category : System Call 

Entered : 82 Jul 01 Updated : 84 Aug 08 | 

File : D$RMSPR0G 

Syntax : DASL FUNCTION DEFINITION MACRO 

Remarks : Used to define the second parameter passed 
to SYSTEM CALL (40) by several TRAP SETTING 
DASL Function Macros. 

NOTE: 

If more than one trap is set concurrently, 
each must have its own private $ I NTS state 
table (see $RFI...). | 

FAST CODE: Trap routine code must be 
declared FAST "code." 

RESULT: This prevents a stack problem with 

$RFI. I 

See Also: JTRAPDKS STRAPFK STRAPKKS STRAPUMV STRAPLKS 
for specific traps, and 
SRFIDKS SRFIFK SRFIKKS SRFILKS for returns. 
SPRM Ref: ( Traps ) Vol.4 Sec. 4.5 
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$TRAPUMV 


FUNCTION 


$TRAPUMV 


Trap User Mode Violations, Used Indirectly 

Category: System Call 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSRMSPROG 

Syntax : JTRAPUMV (loc, tprev) 

Result : DSCCODE 

Entry 1 : loc JSTARTADR; Trap routine($N0ADR clears) 

* Exit 2: prev SSTARTADR; 

If Error : No Error Occurs 

Remarks : The trap location is called if a user task 
has one of following: $UTEWRIT,$UTEACCS, 
$UTEINST,$UTEUNDF,$UTEHALT. Calling $GLUTEN 
in the trap routine will get the last user 
task error number that caused the trap. 

See Also: SGLUTEN for info on task error number trapped 

SPRM Ref: STRAPUMV Vol.4Sec. 4.5.7 


$TXBKSP function $TXBKSP 


Backspace a logical record 


Category: User Function Routine 

Entered : 83 Apr 02 Updated : 84 Jul 25 |* 

File : DSUFRWFIO 


Syntax : STXBKSP (fcb) 
Result : DSCCODE 


Entry 1 : fcb A SWFCB; 


If Error: IF STXBKSP (...) && DSCFLAG THEN SERMSG (); 

See also: $SEC... system call error codes I* 


Document 61585-01 


FUNCTIONS 


205 



STXCLOSE 


FUNCTION 


$TXCLOSE 


Terminate Processing for a Text-File 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRWFI0 

Syntax : JTXCLOSE (fcb) 

Result : D$CCODE 

Entry 1 : fcb A $WFCB; 

If Error: IF STXCLOSE (...) U D$CFLAG THEN $ERMSG (); 

$ERRC.$FUNC = SCSSECW,SCSSECWAIT or SCJSECEOF 
$ERRC.$C0DE = see $SECW,$SECWAIT,$SECEOF 
SPRM Ref: TXCL0SE$ Vol.2 Sec. 13.3.3 


$TXDEL function $TXDEL 

Delete a Logical Text Record 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRWFIO 

Syntax : $TXDEL (fcb) 

Result : D$CCODE 

Assign : varRslt := JTXDEL (fcb); 

IF varRslt && D$CFLAG=0 & varRslt && D$ZFLAG=0 
THEN ( operation complete ); 

IF varRslt && D$CFLAG=0 & varRslt && D$ZFLAG 
THEN ( attempt to delete EOF record ); 

Entry 1 : fcb A $WFCB; 

If Error: IF varRslt && D$CFLAG THEN $ERMSG (); 

See also: $SEC... system call error codes |* 

SPRM Ref: TXDELS Vol.2 Sec. 13.3.10 
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$TXOPEN 


FUNCTION 


$TXOPEN 


Prepare an Opened Text-File for Access 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRWFI0 


Syntax : STXOPEN (fcb, openpt) 
Result : D$CCODE 


Entry 1 : fcb A SWFCB; 

Entry 2 : openpt A SOPENPT; of SOPEN'ed file 

If Error : IF STXOPEN (...) && DSCFLAG THEN SERMSG; 
SPRM Ref: TXOPENS Vol.2 Sec. 13.3.2 


$TXOPENP action $TXOPENP 


Open Usinq Specified Physical I/O Routine 


Category: User Function Routine 

Entered : 83 Apr 02 Updated : 84 Jul 25 |* 

File : DSUFRWFIO 


Syntax : STXOPENP (fcb, openpt) 
Result : DSCCODE 


Fntrv 1 ■ fcb A tUFPR* 

Entry 2 : openpt A SOPENPT; of SOPEN'ed file 

If Error: IF STXOPENP (...) && DSCFLAG THEN SERMSG ( ); 
See Also: SOPENENV for error codes. 
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STXPOSEF 


FUNCTION 


$TXPOSEF 


Position to Text-File EOF 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DJUFRWFIO 

Syntax : JTXPOSEF (fcb) 

Result : OSCCOOE 

Entry 1 : fcb * $WFCB; 

If Error: No Error Occurs 

SPRH Ref: TXP0SEF$ Vol.2 Sec. 13.3.5 


$TXPOSIT function $TXPOSIT 

Position Text-File to File Pointer 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DJUFRWFIO 

Syntax : $TXP0SIT (fcb, fp) 

Result : D$CCODE 

Assign : varRslt := STXPOSIT (fcb, fp); 

IF varRslt && D$CFLAG=0 & varRslt && DSZFLAG 
THEN (pointer given is current EOF); 

Entry 1 : fcb A $WFCB; 

Entry 2 : fp a JFILEPTR; 

If Error: IF varRslt && DSCFLAG 

THEN (pointer given is beyond EOF); 

SPRM Ref: TXPOSITS Vol.2 Sec. 13.3.6 
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STXPREP 


FUNCTION 


$TXPREP 


Prepare a New Text-File for Access 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Aug 08 | 

File : DJUFRWFIO 

Syntax : STXPREP (fob, openpt) 

Result : DSCCODE 

Entry 1 : fob A $WFCB; 

Entry 2 : openpt A $0PENPT; of SOPEN'ed file 

If Error: IF STXPREP (...) && DSCFLAG THEN SERMSG (); I 

See also: SSEC... & $0PENENV system call error codes | 
SPRM Ref: TXPREPS Vol.2 Sec. 13.3.1 


$TXPREPP FUNC tion $TXPREPP 

Prepare Using Specified Physical I/O Routine 
Category: User Function Routine 

Entered : 83 Apr 02 Updated : 84 Aug 08 | 

File : DSUFRWFIO 

Syntax : STXPREPP (fob, openpt) 

Result : DSCCODE 

Fntrv 1 • frb A tWFCR* 

Entry 2 : openpt A $0PENPT; of SOPEN’ed file 

If Error: IF STXPREPP (...) && DSCFLAG THEN SERMSG (); 
See also: $SEC... & SOPENENV system call error codes | 
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$TXREAD 


FUNCTION 


$TXREAD 


Read a Logical Text-File Record 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 


Entry 1 : 
Entry 2 : 
Entry 3 : 

* Exit 4: 


If Error: 
See Also: 
SPRM Ref: 


User Function Routine 

82 Jul 01 Updated : 84 Jul 25 | 

DSUFRWFIO 

$TXREAD (fcb, rec, size, Send) 

DSCCODE 

varRslt := $TXREAD (fcb, rec, size. Send); 

IF varRslt && D$CFLAG=0 & varRslt && D$ZFLAG=0 
THEN ( record delivered ); 

IF varRslt && D$CFLAG=0 & varRslt && DSZFLAG 
THEN (EOF encountered ) ; 

fcb A $WFCB; 

rec A CHAR; record area for read 
size UNSIGNED; Maximum record size allowed 
(with $LE0R) 

end A CHAR; Last character stored, 
usually SLEOR or $LE0F 

IF varRslt && DJCFLAG THEN $ERMSG ( ); 

$SEC... for error codes I 

TXREADS Vol.2 Sec. 13.3.7 
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$TXUPDATE 


FUNCTION 


$TXUPDATE 


Update a Logical Text Record 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Jul 25 |* 

File : DSUFRWFIO 


Syntax : JTXUPDATE (fcb, rec) 
Result : DSCCODE 


Entry 1 : fcb A $WFCB; 

Entry 2 : rec A CHAR; record area terminated by $LE0R 


If Error : IF JTXUPDATE (...) && DJCFLAG THEN JERMSG (); 
See Also : $SEC... for error codes I* 

Remarks : Will not update if disk record has 
$LDEL characters. 

SPRM Ref: TXUPDATS Vol.2 Sec. 13.3.9 


$TXWEOF .unction $TXWEOF 

Write EOF at Current Text-File Position 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRWFIO 

Syntax : JTXWEOF (fcb) 

Result : DSCCODE 

Entry 1 : fcb A JWFCB; 

If Error: IF JTXWEOF (...) && DJCFLAG THEN JERMSG ( ); 

$ERRC.$FUNC = SCJSECR,SCJSECW or SCJSECWAIT 
JERRC.SCODE = (see $SECR,$SECW,$SECWAIT) 

SPRM Ref: TXWEOFS Vol.2 Sec. 13.3.4 


Document 61585-01 


FUNCTIONS 


211 



$TXWRITB 


FUNCTION 


$TXWRITB 


Write Text-file Record with specified lenqth 


Category: User Function Routine I 

Entered : 84 Jul 15 Updated : I 

File : DJUFRWFIO | 

Syntax : $TXWRITEB (fcb, rec, recSize) I 

Result : D$CCODE | 

Entry 1 : fcb A $WFCB; I 

Entry 2 : rec A CHAR; record area terminated by $LE0R | 

Entry 3 : recSize UNSIGNED; I 

If Error : IF JTXWRITB (...) && DJCFLAG THEN $ERMSG (); | 

See Also: $SEC... for error codes I 

$TX WRITE function $TX WRITE 


Write a Logical Text-File Record 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Jul 25 | 

File : DJUFRWFIO 


Syntax : JTXWRITE (fcb, rec) 
Result : DSCCODE 


Entry 1 : fcb A $WFCB; 

Entry 2 : rec A CHAR; record area terminated by SLEOR 


If Error: IF STXWRITE (...) && DJCFLAG THEN JERMSG (); 
See Also: $SEC... for error codes 
Remarks : Will write only if disk record has SLDEL's. 
SPRM Ref: TXWRITEJ Vol.2 Sec. 13.3.8 


TYPDEF function TYPDEF 

Give a Type a Name that may be Used as a Type 


Category: DASL Declaration Word 

Entered : 82 Jul 01 Updated : 82 Dec 01 

Syntax : TYPDEF name type; 

DASL Doc: 17,58,75 March 1982 
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$UCSCHK 


FUNCTION 


$UCSCHK 


Check a User Created Semaphore 
Category. System Call 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSRMSTASK 

Syntax : SUCSCHK (ucs) 

Result : DSCCODE 

Entry 1 : ucs UNSIGNED; 

If Error: IF SUCSCHK (...) && DJCFLAG THEN JERMSG (); 
$ ERRC.$ FUNC = SCSUCSCHK 
$ ERRC.SCODE = $ECUCS0,$ECUCS1 
SPRM Ref: SUCSCHK Vol.4Sec. 6.5.4 

$UCSDEL function $UCSDEL 

Delete a User Created Semaphore 

Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 01 

File : DSRMSTASK 

Syntax : SUCSDEL (ucs) 

Result : DSCCODE 

Entry 1 : ucs UNSIGNED; 

If Error: IF SUCSDEL (...) && DSCFLAG THEN SERMSG (); 

SERRC.SFUNC = SCSUCSDEL 

$ERRC. SCODE = SECUCSO,$ECUCS1,$ECUCS2 
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SUCSGEN 


FUNCTION 


SUCSGEN 


Generate a User Created Semaphore 


Category: System Call 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : DSRMSTASK 

Syntax : SUCSGEN (Sues) 

Result : DSCCODE 


* Exit 1: ucs UNSIGNED; 

If Error: IF SUCSGEN (...) && DSCFLAG THEN SERMSG (); 
$ ERRC.$ FUNC = SCSUCSGEN 
SERRC.SCODE = SECUCSGO 
SPRM Ref: SUCSGEN Vol.4Sec. 6.5.1 


$UCSSIG 


FUNCTION 


SUCSSIG 


Signal a User Created Semaphore 

Category: System Call 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSRMSTASK 

Syntax : SUCSSIG (ucs) 

Result : DSCCODE 

Entry 1 : ucs UNSIGNED; 

If Error: IF SUCSSIG (...) && DSCFLAG THEN SERMSG (); 
$ ERRC.$ FUNC = SCSUCSSIG 
SERRC.SCODE = SECUCS0,SECUCS1 
SPRM Ref: SUCSSIG Vol.4Sec. 6.5.2 
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SUCSWAIT 


FUNCTION 


SUCSWAIT 


Wait on a User Created Semaphore 


Category: System Call 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSRMSTASK 


Syntax : SUCSWAIT (ucs) 
Result : DSCCODE 


Entry 1 : ucs UNSIGNED; 

If Error: IF SUCSWAIT (...) && DSCFLAG THEN SERMSG (); 
SERRC.$ FUNC = SCSUCSWAIT 
$ ERRC.$C0DE = $ECUCS0,$ECUCS1 
SPRM Ref: SUCSWAIT Vol.4Sec. 6.5.3 


SUERMSG function SUERMSG 


Store User Error Message on Command Stack 


Category: User Function Routine 

Entered : 84 Jul 15 Updated : 

File : DSUFRERR 



Syntax : SUERMSG (message) 
Result : Does not return 


Entry 1 : message A CHAR; User's error message will be |* 

truncated if longer than j* 

error message area available |* 

If Error: No error occurs I* 

Remarks : The Command Interpreter will display the I* 

message. I* 

SPCREFTS will be set to indicate presence of j* 
error message. j* 

SPCRCLEL will point to 'message' j* 
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UNION 


FUNCTION 


UNION 


Named Member Contains Different Possible Members 
Category: DASL Declaration Word 

Entered : 82 Jul 01 Updated : 82 Dec 01 

Syntax : x UNION { var type; var type;[..var type;]}; 

Remarks : Allocates memory large enough to hold longest 
member group. 

DASL Doc: 16,59,60 March 1982 


$UNLKRIM p UN ct IO n $UNLKRIM 


Release RIM from Pipe 


’on hold] 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRSYS 


Syntax : $UNLKRIM (pfdb) 
Result : none 


Entry 1 : pfdb A $PFDB; Same as used by SL0CKRIM 


If Error: ? 

See Also: $L0CKRIM for Pipe opening, RIM lockout 
SPRM Ref: SL0CKRIM Vol.2 Sec. 5.6.2 
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$UNPAKPW 


FUNCTION 


$UNPAKPW 


Environment, Unpack password into ASCII string 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRENV 


Syntax : SUNPAKPW (comp, uncomp) 

Result : DSCCODE 

Assign : varRslt := SUNPAKPW (comp, uncomp); 

IF varRslt && D$CFLAG=0 THEN (valid password); 

Entry 1 : comp A SPACKPW; 

Entry 2 : uncomp * SUNPACKPW; 

If Error: IF varRslt && DSCFLAG THEN (null password); 
SPRM Ref: UNPAKPWS Vol.2Sec. 2.11 


$USRABN 


FUNCTION 

User Abend Facility 


$USRABN 


Category: System Call 

Entered : 83 Apr 02 Updated : 84 Jul 25 | 

File : D$RMSPR0G 

Syntax : $USRABN (mode, fav, name, Aprev) 

Result : DSCCODE 

Entry 1 : mode BYTE; $UABSET,$UABSETO,$UABCLR 
Entry 2 : fav UNSIGNED; 

Entry 3 : name A $NAMET; 

* Exit 4: prev UNSIGNED; 

If Error: IF SUSRABN (...) && DSCFLAG THEN SERMSG (); 

$ ERRC.$ FUNC = SCSUSRABN 

$ERRC.$C0DE = $ECUMAV,$ECSI001,$ECUAB2, | 

$ ECUAB3,$ ECUAB4,$ ECUAB5,$ ECUAB6, I 

$ECSI007,$ ECS 1010 I 
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VAR 


FUNCTION 


VAR 


Indicates Local Variable Definitions Follow 


Category : DASL Declaration Word 
Entered : 82 Jul 01 Updated : 83 Jul 19 

Syntax : VAR varname [....varname] type; 

... [varname type;] 
or 

VAR STATIC varname type [:= initializer]; 

Remarks : Local variables that are initialized in a 
declaration statement, must be declared 
STATIC. But, variables declared STATIC do 
not necessarily need to be intialized. 

DASL Doc: 3 March 1982 
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$VGETBUF 


FUNCTION 


$VGETBUF 


Obtain Buffer Group from Virtual Pool 


Category : User Function Routine 

Entered : 82 Jul 01 Updated : 83 Apr 02 

File : D$UFRWFI0 


Syntax : $VGETBUF (Spsk, istartPage, Ssize) 
Result : DSCCODE 


* Exit 1: psk BYTE; 

* Exit 2: startPage BYTE; starting page of PSK 

* Exit 3: size BYTE; buffer group size in pages 

If Error: IF $VGETBUF (...) && DSCFLAG 

THEN ( no buffers available ) 

SPRM Ref: VGETBUFS Vol.2 Sec. 13.4.7 


$VINIT FUNCTION $VINIT 


Initialize Virtual I/O Management 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 30 

File : DSUFRWFIO 


Syntax : SVINIT (start, size, groupSize, numQueues) 
Result : DSCCODE 


Entry 1 : start A BYTE; Start of buffer descriptor 

pool & Hash queue 
Entry 2 : size UNSIGNED; Hash queue length 

to maintain 

Entry 3 : groupSize BYTE; Base I/O size in sectors 
Entry 4 : numQueues BYTE; Number of Hash queues 


If Error: No Error Occurs 

SPRM Ref: VINITS Vol.2 Sec. 13.4.3 
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$VMAPPSK 


FUNCTION 


$VMAPPSK 


Donate a PSK to Virtual Management 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRWFIO 

Syntax : JVMAPPSK (psk) 

Result : DtCCODE 

Entry 1 : psk BYTE; 

If Error: IF SVMAPPSK (...) && DSCFLAG 

THEN (no more buffer descriptor space); 
SPRM Ref: VMAPPSKS Vol.2 Sec. 13.4.6 


$VPUTBUF function $VPUTBUF 

Return a Buffer Group to Virtual Pool 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRWFIO 

Syntax : JVPUTBUF (psk, startPage) 

Result : DSCCODE 

Entry 1 : psk BYTE; 

Entry 2 : startPage BYTE; page from JVGETBUF 

If Error: IF SVPUTBUF (...) && D$CFLAG 

THEN (PSK / page was invalid or not found); 
SPRM Ref: VPUTBUFS Vol.2 Sec. 13.4.8 
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$VSETWIN 


FUNCTION 


$VSETWIN 


Establish Memory Window Areas, Virtual 


Category. User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRWFI0 


Syntax : JVSETWIN (winMsnTbl) 
Result : DSCCODE 


Entry 1 : winMsnTbl A BYTE; MSN list, terminated 0377 


If Error : No Error Occurs 

SPRM Ref: VSETWIN$ Vol.2 Sec. 13.4.4 
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$WAITIO 


FUNCTION 


$WAITIO 


Wait for any FAV Operation to Complete 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Aug 08 |* 

File : DSRMSIO 

Syntax : $WAITI0 (Sfav, wait) 

Result : D$CCODE 

Entry 1 : fav UNSIGNED; a selected FAV I* 

Entry 2 : wait BOOLEAN; 

* Exit 1: fav UNSIGNED; returned if more than one |* 

FAV was complete. j* 


If Error: 


Remarks : 


SPRM Ref: 
SPRM Ref: 
SPRM Ref: 
SPRM Ref: 
SPRM Ref: 
SPRM Ref: 


IF SWAITIO (...) && D$CFLAG THEN SERMSG (); 

$ERRC.$FUNC = SC$WAIT10 
SERRC.SCODE = $ ECS 1020 

IF any FAV was a higher number than the I* 

specified FAV, then the lowest of those is |* 
returned. IF all FAVs were lower than the |* 

specified FAV, then the lowest of those is |* 

returned. This is useful for complicated |* 
round-robin (FMT) schemes. j* 

SWAITIO Vol.4 Sec. 7.12 

$WAITI0 Vol.4 Sec. 8.5.6 

$WAITI0 Vol.4 Sec. 9.1.2.4 

SWAITIO Vol.4 Sec. 9.2.2.4 

SWAITIO Vol.4 Sec. 9.4.2.6 

SWAITIO Vol.4 Sec. 10.3.6 
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$WAITIOS 


FUNCTION 


$WAITIOS 


Category : 
Entered : 
File : 

Syntax : 
Result : 

Entry 1 : 
Entry 2 : 
Entry 3 : 

* Exit 1 : 

* Exit 2: 

If Error : 


Wait for Selected Status Bit Change 

System Call 

83 Apr 02 Updated : 84 Jul 25 | 

DSRMSIO 

SWAITIOS (&fav, Sstatus, wait) 

DSCCODE 

fav UNSIGNED; selected FAV | 

status $WSTAT; selected bits j 

wait BOOLEAN; Select Alt SC if true 
fav UNSIGNED; see SWAITIO I 

status $WSTAT; 

IF SWAITIOS (...) && DJCFLAG THEN $ERMSG (); 

$ ERRC.$ FUNC = SCSWAITIOS 

$ERRC.SCODE = SECSI020 I 
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SWCONFIG 


FUNCTION 


SWCONFIG 



Category: System Call 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSRMSWS 


Syntax : SWCONFIG (Aconfig, Aright, Atop) 
Result : DtCCODE 


* Exit 1: config SWSCONF; WS kind and config info 

* Exit 2: right BYTE; Right most possible cursor($WSRC 

* Exit 3: top BYTE; Top most possible cursor 


If Error: No Error Occurs 

Remarks : See notes in structure SWSCONF. 

Screen Sizes: 

SWSBL constant is 11, defining the bottom line. 
Screens with more than 12 lines will have a 
negative number in "top". 

SWSLC constant is 0, defining left most cursor. 
SWSRC constant is 79, defining the minimum 
right most cursor position (it may be larger). 
See Also: SWSTATUS and structure SWSCONF for notes 
SPRM Ref: SWCONFIG Vol.4 Sec. 11.3 
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$WFCLOSE 


FUNCTION 


$WFCLOSE 


Work-File, Terminate Processing of Work File 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : DSUFRWF10 

Syntax : $WFCL0SE (fob) 

Result : DSCCODE 

Entry 1 : fcb A $WFCB; 

If Error: IF $WFCL0SE (...) && D$CFLAG THEN $ERMSG (); 
SERRC.SFUNC = SCSSECW,SCSSECWAIT or 
S C$ S EC E0 F 

SERRC.SCODE = (see $SECW,$SECWAIT,$SECEOF) 
SPRM Ref: WFCLOSES Vol.2 Sec. 13.2.3 


$WFFLUSH function $WFFLUSH 

Dump Pending Write Buffers to Disk 

Category: User Function Routine 

Entered : 83 Apr 02 Updated : 83 May 03 

File : DSUFRWFIO 

Syntax : $WFFLUSH (fcb) 

Result : DSCCODE 

Entry 1 : fcb A $WFCB; 

If Error: IF SWFFLUSH (...) && DJCFLAG THEN SERMSG (); 
$ERRC.$FUNC = SC$ ? 

$ERRC.SCODE = ? 
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SWFOPEN 


FUNCTION 


$WFOPEN 


Work-File, Prepare an Open Work File For Access 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$UFRWFI0 


Syntax : $WF0PEN (fcb, openpt, recSize) 
Result : DSCCODE 


Entry 1 : fcb A $WFCB; 

Entry 2 : openpt A SOPENPT; of SOPEN'ed file 
Entry 3 : recSize UNSIGNED; Record size 


If Error: No Error Occurs 

SPRM Ref: WFOPENS Vol.2 Sec. 13.2.2 


$WFOPENP FUNC tiom $WFOPENP 


Open Using Specified Physical I/O Routine 


Category: User Function Routine 

Entered : 83 Apr 02 Updated : 83 May 03 

File : DSUFRWFIO 


Syntax : WFOPENP (fcb, openpt, recSize) 
Result : DSCCODE 


Entry 1 : fcb $WFCB; 

Entry 2 : openpt A SOPENPT; of SOPEN'ed file 
Entry 3 : recSize UNSIGNED; Record size 


If Error: IF SWFOPENP (...) && DSCFLAG THEN SERMSG ( ); 
SERRC.SFUNC = SCS ? 

SERRC.SCODE = ? 
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SWFPOSEF 


FUNCTION 


$WFPOSEF 


Work-File, Position to File's EOF 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : OSUFRWF10 

Syntax : JWFPOSEF (fcb) 

Result : D$CC0DE 

Entry 1 : fcb A $WFCB; 

If Error: No Error Occurs 

Remarks : Moves file's EOF pointer to CURRENT 

SPRM Ref: WFP0SEF$ Vol.2 Sec. 13.2.5 


$WFPOSIT f unct ion $WFPOSIT 

Work-File, Position To File Pointer 


Category: User Function Routine 

Entered : 82 Oul 01 Updated : 84 Jul 01 

File : D$UFRWFI0 

Syntax : SWFPOSIT (fcb, fp) 

Result : DSCCODE 

Assign : varRslt := $WFP0SIT (fcb, fp); 

IF varRslt && D$CFLAG=0 & varRslt && DJZFLAG 
THEN (pointer given is current EOF); 

Entry 1 : fcb A $WFCB; 

Entry 2 : fp A SFILEPTR; 

If Error: IF varRslt && D$CFLAG 

THEN (pointer given is beyond EOF); 

SPRM Ref: WFPOSITS Vol.2 Sec. 13.2.6 
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$WFPREP 


FUNCTION 


$WFPREP 


Work-File, Prepare a New Work File For Access 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Aug 08 | 

File : DSUFRWFIO 

Syntax : JWFPREP (fcb, openpt, recSize) 

Result : DtCCODE 

Entry 1 : fcb A $WFCB; 

Entry 2 : openpt A JOPENPT; of SOPEN’ed file 

Entry 3 : recSize UNSIGNED; Record size 

If Error : IF JWFPREP (...) && DSCFLAG THEN $ERMSG (); | 

See also: $SEC... and SOPENENV system calls for error | 
codes. I 

SPRM Ref: WFPREPS Vol.2 Sec. 13.2.1 
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$WFPREPP 


FUNCTION 


$WFPREPP 


Prepare Using Specified Physical I/O Routine 
Category: User Function Routine 

Entered : 83 Apr 02 Updated : 84 Aug 08 | 

File : D$UFRWF10 

Syntax : SWFPREPP (fob, openpt, recSize) 

Result : D$CC0DE 

Fntrv 1 • frh A tblFPR* 

Entry 2 : openpt A SOPENPT; of $0PEN'ed file 
Entry 3 : recSize UNSIGNED; Record size 

If Error : IF SWFPREPP (...) && DSCFLAG THEN SERMSG (); 
See also: SSEC... and SOPENENV system calls for error | 
codes. I 
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$WFREAD 


FUNCTION 


$WFREAD 


Category: 
Entered : 
File : 

Syntax : 
Result : 
Assign : 


Entry 1 : 
Entry 2 : 

If Error: 
See Also: 
Remarks : 

SPRM Ref: 


Work-File, Read a Logical Record 

User Function Routine 

82 Jul 01 Updated : 84 Jul 25 | 

DSUFRWF10 

JWFREAD (fob , rec) 

DSCCODE 

varRslt := JWFREAD (fob, rec); 

IF varRslt && D$CFLAG=0 & varRslt && D$ZFLAG=0 
THEN (record delivered); 

IF varRslt && D$CFLAG=0 & varRslt && DJZFLAG 
THEN (file is at EOF); 

fcb * JWFCB; 

rec A BYTE; output record area 

IF varRslt && DJCFLAG THEN JERMSG (); 

$SEC... for error codes I 

Reads logical record from CURRENT, 
advances CURRENT. 

WFREADJ Vol.2 Sec. 13.2.7 
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$WFREADL 


FUNCTION 


$WFREADL 


Work-File, Read in LOCATE Mode 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Jul 25 | 

File : DSUFRWFIO 

Syntax : JWFREADL (fcb, &rec) 

Result : DSCCODE 

Entry 1 : fcb A $WFCB; 

* Exit 2: rec A BYTE; start of record in buffer 

If Error : IF SWFREADL (...) && DSCFLAG THEN JERMSG ( ); 
See Also: $SEC... for error codes I 

SPRM Ref: WFREADL$ Vol.2 Sec. 13.2.10 
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WFUPDATS 


FUNCTION 


WFUPDAT! 


Name of EXTERNAL RMS UFR used by $WFUPDATE 

Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 


$WFUPDATE function $WFUPDATE 

Work-File, Update a Logical Record 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Jul 25 

File : DJUFRWFIO 

Syntax : $WFUPDATE (fob, rec) 

Result : D$CCODE 

Entry 1 : fcb A $WFCB; 

Entry 2 : rec A BYTE; input record area 

If Error: IF $WFUPDATE (...) && D$CFLAG THEN $ERMSG ( 

See Also: $SEC... for error codes 

SPRM Ref: WFUPDATS Vol.2 Sec. 13.2.9 
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$WFUPDATEL 


FUNCTION 


$WFUPDATEL 


Work-File, Update a Record in LOCATE Mode 


Category: User Function Routine 

Entered : 82 Ju1 01 Updated : 84 Jul 25 |* 

File : D$UFRWFI0 


Syntax : JWFUPDATEL (fob, irec) 
Result : D$CCODE 


Entry 1 : fob A $WFCB; 

* Exit 2: rec A BYTE; Start of record in buffer 


If Error: IF JWFUPDATEL (...) && D$CFLAG THEN $ERMSG (); 
See Also: $SEC... for error codes I* 

SPRM Ref: WFUPDTU Vol.2 Sec. 13.2.12 


WFUPDTL$ f unct ion WFUPDTL$ 

Name of EXTERNAL RMS UFR used by $WFUPDATEL 

Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 
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$WFWEOF 


FUNCTION 


$WFWEOF 


Work-File, Write EOF At Current File Position 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 May 03 

File : DSUFRWFIO 

Syntax : $WFWE0F (fcb) 

Result : DSCCODE 

Entry 1 : fcb A $WFCB; 

If Error: IF $WFWE0F (...) && DSCFLAG THEN SERMSG (); 

$ERRC.$FUNC = SCSSECW,SCSSECWAIT or SCSSECR 
SERRC.SCODE = (see $SECW,$SECWAIT,$SECR) 
Remarks : Saves CURRENT file pointer into EOF and sets 
EOF pending flag. No actual System Call will 
occur until SWFCLOSE is called. 

SPRM Ref: WFWEOFS Vol.2 Sec. 13.2.4 


$WF WRITE f unction $WF WRITE 


Work-File, Write a Logical Record 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Jul 25 

File : DSUFRWFIO 


Syntax : JWFWRITE (fcb, rec) 
Result : DSCCODE 


Entry 1 : fcb A SWFCB; 

Entry 2 : rec A BYTE; Output record data area 


If Error: IF $WFWRITE (...) && DSCFLAG THEN SERMSG () 

See Also: $SEC... for error codes 

SPRM Ref: WFWRITES Vol.2 Sec. 13.2.8 
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SWFWRITEL 


FUNCTION 


$WFWRITEL 


Work-File, Write a Record in LOCATE Mode 
Category: User Function Routine 

Entered : 82 Jul 01 Updated : 84 Jul 25 | 

File : DJUFRWF10 

Syntax : SWFWRITEL (fob, rec) 

Result : DfCCODE 

Entry 1 : fcb A JWFCB; 

Entry 2 : rec A A BYTE; Start of record in buffer 

If Error: IF JWFWRITEL (...) && OSCFLAG THEN SERMSG (); 
See Also: $SEC... for error codes I 

SPRM Ref: WFWRITLS Vol.2 Sec. 13.2.11 


WFWRITL$ 


FUNCTION 


WFWRITLS 



Category: Cross Reference 

Entered : 82 Jul 01 Updated : 82 Dec 01 
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WHILE 


FUNCTION 


WHILE 


Part of LOOP WHILE Execution Control 
Category: DASL Control Word 

Entered : 82 Jul 01 Updated : 82 Dec 01 

Syntax : see LOOP function 

DASL Doc : 73,74 March 1982 


$WIPEBT 


FUNCTION 


$WIPEBT 


Clear an Area of Memory to SPACES 


Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : DSUFRGEN 


Syntax : SWIPEBT (dest, length) 
Result : none 


Entry 1 : dest A BYTE; Start of area to be cleared 
Entry 2 : length UNSIGNED; Length to be cleared 

If Error: No Error Occurs 

See Also: SWIPEBTA for clear to constant value 
SPRM Ref: WIPEBTS Vol.2Sec. 8.2 
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SWIPEBTA 


FUNCTION 


$WIPEBTA 


Clear an Area of Memory to Constant Value 

Category: User Function Routine 

Entered : 82 Jul 01 Updated : 83 Jul 10 

File : D$UFRGEN 

Syntax : $WIPEBTA (dest, length, value) 

Result : none 


Entry 1 : dest A BYTE; Start of area to get "value" 

Entry 2 : length UNSIGNED; Length of area 

Entry 3 : value BYTE; Value to be placed in area 

If Error: No Error Occurs 

See Also: SWIPEBT for claer to spaces 

SPRM Ref: WIPEBTAS Vol.2Sec. 8.2 


$WSCTL 


FUNCTION 


$WSCTL 


Workstation Control Code Function, Used Indirectly 


Category: System Call 

Entered : 82 Jul 01 Updated : 33 Jul 10 

File : D$RMSWS 


Syntax : DASL FUNCTION DEFINITION MACRO 

Remarks : Passes parameters to SYSTEM CALL (4) SWSCTL 
The control codes used with $WSCTL to 
implement the macros below are: 

SWSCTLBP, SWSCTCK, SWSCTLCF, SWSCTLCN. 

See Also: SBEEP, SCLICK, $CURS0FF, SCURSON for 

direct usage of workstation control codes. 
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$WSGETCH function $WSGETCH 

Workstation, Obtain One Keyboard Buffer Character 

Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 01 |* 

File : D$RMSWS 

Syntax : JWSGETCH (3char) 

Result : DSCCODE 

* Exit 1: char CHAR; Character from keyboard 

If Error : IF $WSGETCH (...) && DJCFLAG 
THEN { 

IF $ERRC.$C0DE = JECWSGCO I* 

THEN {Kbd Buffer Empty} 

ELSE SERMSG () /* JECWSGCl */ 

}; 

$ERRC.$FUNC = SCSWSGETCH 
$ERRC.$C0DE = SECWSGCO keyboard buffer empty 
SECWSGCl workstation offline 

Remarks : SWSTATUS should be used to determine if the 
keyboard is character ready ( SWSRDY true ) 
so as to avoid error, also to see static 
status of function keys (if SWCONFIG 
indicates static status available). 

The "char" value returned has not been 
passed through the user's translate table but 
control keys have been converted to special 
or standard codes. 

There is a 63 character FIFO queue 
between the keyboard and the keyboard entry 
function. Function key upstroke and 
downstroke codes go through the queue, but 
the static status indications are real time. 


.... continued 
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Generating Codes on 6600 w/o F-Keys: 

SWSF1K thru SWSF5K: digit 1-5 with DISPLAY 
SWSATTK: digit 0 key with DISPLAY key down 
JWSINTK: period key (.) with DISPLAY 
Note: above, downstroke codes are generated. 
The static bits stay true while 
DISPLAY key is down (see SWSTATUS). 

No upstroke codes are generated. 

See also: LISTS section: $WS... Workstation Keyboard | 
Codes. I 

SPRM Ref: $WSGETCH Vol.4 Sec. 11.5 
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$WSIO 


FUNCTION 


$WSIO 


Perform Workstation I/O 


Category: System Call 

Entered : 82 Jul 01 Updated : 84 Jul 01 

File : DJRMSWS 


Syntax : JWSIO ( inode, string, Ahor, Aver, Send) 

Result : DfCCODE 


Entry 1 : 
Entry 2 : 

Entry 3 : 
Entry 4 : 

* Exit 1: 

* Exit 3: 

* Exit 4: 

* Exit 5: 


mode $WSI0M0DE; Initial mode bits: $WSM.. 

string A CHAR; Data and/or Control Codes 
Terminated with $ES or $EL 
hor BYTE; Initial hor cur pos (SWSLC) 

ver BYTE; Initial ver cur pos ($WSBL-x) 

mode JWSI0M0DE; Mode, unless error: 

then invalid 

hor BYTE; Position after last char 

ver BYTE; Position after last char 

end A CHAR; Char after string terminator 


If Error: IF $WSI0 (...) && D$CFLAG THEN $ERMSG (); 
$ERRC.$FUNC = SCSWSIO 
$ERRC.$C0DE = $ECUMAV,$ECWSI01,$ECWSI02, 

$ ECWS103,$ ECWS104,$ ECWS105,$ ECWS106 


Remarks : 


SHSIO Mode (bit) Codes: 

SWSMNW 0001 Inhibit 'DISPLAY' key wait 
SWSMES 0002 Echo secret (char) 

$WSMNI 0004 No case inversion 
SWSMNE 0010 No echo or cursor 
SWSMKC0N 0020 Keyin continuous 
SWSMDIG0 0040 Digits only 
SWSMPADN 0100 Pad numeric decimal part 
SWSMNESC 0200 No escape b4 0-037 or 0177 
Initial mode may be changed in "string". 


$!/tSIQ String Data Char Ranges 

0 thru $WS10FCF—1. If SWSMNESC mode bit 
set, 0 thru 040 be interpreted as control 
codes and will not be displayed. 
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SWSIO String Control Code Range: 

SWSIOFCF thru $WSI0FCL 


SUSIO CONTROL CODES 


Note: Some of the control codes require a one byte 

value following the code, indicated (). Some 
require a two byte value, indicated (()). 

Some require some of each. 


CURSOR CONTROL 


$H 

0234 

New cursor column follows (pos) 

$v 

0235 

New cursor row follows (pos) 

$HA 

0236 

Cursor column adjustment follows (adj) 

$VA 

0237 

Cursor row adjustment follows (adj) 

$CP 

0240 

Cursor position follows (vert),(horz) 

SHU 

0241 

Home up to upper left-hand corner 

$HD 

0242 

Home down to lower left-hand corner 

$NL 

0243 

Advance to new line 

SWSCURON 

0214 

Turn Cursor On at current position 

SWSCUROF 

0215 

Turn Cursor Off at current position 

GENERAL 

SEEOF 

0200 

Erase from cursor to end of frame 

SEEOL 

0201 

Erase from cursor to end of line 

$RU 

0202 

Roll screen up one line 

SRD 

0203 

Roll screen down one line 

$ ES 

0231 

End of string 

$ EL 

0232 

Advance to new 1ine,terminate strg 

SESNF 

0271 

End Of String, don't flush display 

$NS 

0233 

New string address follows ((loc)) 

SWSNOP 

0244 

No operation 

SWSSMODE 

0245 

Set mode (bits) 

SWSCMODE 

0246 

Clear mode (bits) 

SWSCKF 

0247 

Clear keyboard fifo 

SWSBEEP 

0204 

Beep 

SWSCLICK 

0205 

Click 

SWSIKCON 

0210 

Key click on 

SWSIKCOF 

0211 

Key click off 


continued 
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SWSATTEN 0216, Enable KDS 3 Attributes; 

underline & 2-level video on 8600 console. 

Has no effect on other workstations. 

JWSCONFD 0272 WS Confiq data (Len),((Loc)) 

SWSRECON 0273 WS Reconfig data (Len),((Loc)) 
where ((Loc)) has the format: 

Mask_0, ValueO, Mask_l, Value_l 
Mask_(Len-l), Value_(Len-l) 

VIDEO 

$WSVI 0206 Video inverted 

$WSVN 0207 Video normal 

JWSSVMOO 0264 Set video mode (mode) 

VIDEO MODES follow JWSSVMOO: 

JWSVM2L 0000 Vid Mode: Bold-face, double intensit' 

SWSVMUNL 0001 Video Mode: Underline 

SWSVMBNK 0002 Video Mode: Blink 

JWSVMAF 0003 Video Mode: Alternate font 

NOTE: Video mode is set to NORMAL at beginning 
of each $WS10 function. The last SWSSVMOD 
function in any string sets the mode for 
the entire string, therefore, only one 
mode can be effected per string. 

PRINTER 

SWSPTRON 0212 Turn On Printer connected to WS 
JWSPTOFF 0213 Turn Off Printer connected to WS 

$WSLF 0265 Line feed for WS serial printers 
JWSFF 0266 Form feed for WS serial printers 
$WSCR 0267 Carriage return WS serial printers 
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INSERT, DELETE, OPEN, CLOSE, and SCROLL WINDOW 

NOTE: in the current RMS workstation, sub window 

functions work only if the tube is configured 
for sub windows (in which case the scroll 
window does NOT work). The roll/scroll 
window mode will be phased out and all 
programs should use the sub-window mode. 

SWSRESET 0217 Reset Window to Default Screen size 
$WSRESTR 0225, Same as $WSRESET except 

8600 KDS attributes are not disabled 

SWSSWTB 0222 Set sub window (vert-top),(vert-bot) 
SWSSWLR 0223 Set sub window (horz-left),(horz-right) 

SWSIDOCS 0224 (INS, DEL, OPEN, CLOSE, SCROLL codes) 

Codes following SWSIDOCS: 

JWSINSCH 0000 Insert space under cursor, shift down 
SWSDELCH 0001 Delete char under cursor, shift up 
SWSINSLN 0002 Roll down lines from cursor to bottom 
SWSDELLN 0003 Delete line under cursor and roll up 
SWSOPENL 0004 Open line from under cursor rolling 
SWSCLOSL 0005 Close line from under cursor rolling 

The scroll commands are followed by the characters 
that are to make up the column to be scrolled onto 
the screen. In the current RMS workstation, this 
string of characters can have imbedded video 
modifications. $WS10 does not check if other 
functions are tried. 

SWSSCRL 0006 Scroll left < followed by data > 
SWSSCRR 0007 Scroll right < followed by data > 
SWSSCRE 0010 End of scroll data 


continue 
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OUT and IN Strings 


SWSOS 0250 
SWSONCH 0251 

$WSIS 0252 
SWSISI 0253 
SWSIN 0254 
$WSINI 0255 

$WSITIME 0256 


Output string (len),((Too)) 

Output repeated (char),(n) times 

In string (con),(max),((loc)),(end) 

In string imm (con),(max),(skip),(end) 
In numeric (lmax),(rmax),((loc)),(end) 
In numrc imm (lmax),(rmax),(skip),(end) 

Set inter-char timeout to (t) seconds 


KEVIN TRANSLATE TABLE: 


Least sig 7 bits = SWSCURS for terminate $WSI0. 

Sign bit on characters less than 0100 for terminate 
$WS10 on Control Chars between 0200 and 0277. 

Sign bit on Characters greater than or equal to 
0100 for character invertable by logical X0R with 
040. 


SWSSKXTA 0257 Set keyin translate table at ((loc)) 
SWSSKXTP 0261 Set keyin xlate table at ((loc)),(psk) 


SWSKEYCH 0270 
SWSK1CHR 0276 

SWSECHOS 0262 
SWSTWAIT 0263 


Keyin un-xlated character at ((Loc)) 
Keyin un-xlated character at ((LOC)) 
with cursor on/off 
Set echo secret disply char (char) 
Perform n second wait (n) 


CHARACTER FONT SET: 


The character font set is denoted by a table 
that is identical to that used by DOS. 


SWSLCFS 0260 Load char font set from ((loc)) 
SWSCURDF 0275 Return to default cursor font 
SWSCURFL 0274 Load cursor font from ((Loc)) 

The SWSLCFS control code causes the character font 
set for the screen to be loaded from [loc] if the ca¬ 
pability exists. 

The Character Font table comprises six bytes per en- 
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try. The first byte represents the character that is 
to be displayed on the screen (as a 5 by 7 dot matrix 
character in this example). The remaining five bytes 
contain vertical dot positions. One entry in the 
table might look like this entry for the letter A: 

char (byte 1 byte 2 byte 3 byte 4 byte 5) 

BITS 01234567 

CHAR 11000001 [ binary representation of char A ] 
byte 1 00111111 [ byte descriptor in binary ] 

byte 2 01001000 [ byte descriptor in binary ] 

byte 3 01001000 [ byte descriptor in binary ] 

byte 4 01001000 [ byte descriptor in binary ] 

byte 5 00111111 [ byte descriptor in binary ] 

The value 11000001 represents the octal value of A 
with the sign bit set. 

When the bits of the five bytes are listed horizon¬ 
tally, with the 1 bits representing the dots in a 
matrix, the result looks like this: 


00000 

from 

bit 

7 

of 

each 

byte 



[when the 

oiiio 

from 

bit 

6 

of 

each byte 

XXX 

zeros are 

10001 

from 

bit 

5 

of 

each 

byte 

X 

X 

replaced 

10001 

from 

bit 

4 

of each byte 

X 

X 

by blanks 

inn 

from 

bit 

3 

of 

each 

byte 

xxxxx 

and the 

10001 

from 

bit 

2 

of 

each 

byte 

X 

X 

l's by 

10001 

from 

bit 

1 

of 

each 

byte 

X 

X 

x's, the 

10001 

from 

bit 

0 

of 

each 

byte 

X 

X 

char A 
results] 


If the first byte in the group (that represents the 
character to be translated) does not have the sign 
bit set, an SECWSI06 error is returned. 

Hint: Using the RMS Utility CHAREDIT, the octal string 
for a character may be verified. 

See also: SWCONFIG for screen size. 


.... continued 
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miO ESCAPE SEQUENCE 1 codes 
for the Extended Function Keyboard 


$WSESC1 0226 indicates that $WS10 'escape-sequence-1' | 
codes follow. I 

Last control code values (for testing): I 

SWSESC1L 1, $WSEFCTL;Last escape-seq-1 control code, j 
$WSEFCL 016, $WSEFST2;Last EFK Control code value. | 

These codes may follow SWSESC1: I 

$WSDSCNT 0 Disconnect datastation | 

SWSEFCTL 1 Expanded Function Keyboard control. I 

See the Escape-Sequence-1 codes that I 

follow this code; below... j 


Escape 1 Sequences that may be used via: 

o Keycode Translate Module path, or 
o General Purpose Keyboard Emulation path. 

All sequences begin: $WSESC1,$WSEFCTL,... 


...SWSEFRST 0 Same as SWSRESET except reset all but 
Keycode Xlate Module path 

...SWSEFLOW 1 followed by (CONTROL); 

Expanded function KBD Flow control 

CONTROL bit definitions: 

$WSLENON 001 Enable Keycode Translate Module 
path; nicknamed 'LENS' 

$WSPUP0F 002 Disable Locked Key Processing; 
nicknamed 'PUPIL' 

SWSDKPOF 004 Disable Dead Key Processor 

SWSBIFDT 010 Get data from Internal Buffer 
Module; nicknamed 'BIFOCAL' 

$WSLNT0F 020 Disable Keycode Translate Module 
path; nicknamed 'LENS' 
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.SWSEFKID 3 followed by ((LOC)); Get keyboard I.D. |* 

.$WSEF$TC 7 followed by ((LOC)); Get current static |* 

bits, i.e. control codes. |* 

First six bytes of LOC contain immediate |* 
state of the keyboard's control keys. I* 

7th byte has status of $W$RDY and $WS0NL. j* 
See: Boxes below. I* 

Counterpart to $WSTATUS system call. I* 

.SWSEFSTF 010 followed by ((LOC)); Get control key |* 
static bits from static key FIFO. |* 

LOC is six bytes long. j* 

See: Boxes below. |* 

Use only after receiving SWSEFKFO I* 

(FIFO overflow). j* 

Counterpart to SWSTATUS system call |* 

alternate mode. j* 

.SWSEFSTL Oil followed by ((LOC)) Get latched I* 

static bits, i.e. the cumulative result of |* 
any keys pushed since last occurance of j* 
this control sequence. I* 

See $WSEFSTC for contents of LOC's 7 bytes. |* 

.$WSEFST2 016 followed by ((LOC)); Get status bits |* 

+ SWSTATUS bits. LOC is nine bytes; the |* 

same 7 bytes for SWSEFSTC plus the 2 bytes |* 
normally returned by SWSTATUS. |* 

Note: SWSEFST2 is nearly equivalent to I* 

calling SWSEFSTC and SWSTATUS but insures |* 
that all status bits are sampled |* 

simultaneously. j* 


.. continued 
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BYTES 0 THRU 5 : (Returned by tUSEFSTC, SWSEFSTF, 
and SWSEFSTL) 

These six bytes are a bit vector for the 48 possible 
control keys available on the extended function 
keyboard. The bits in this vector are numbered 
starting with 0 (for byte 0, bit 0) to 060 
(for byte 5, bit 7). 

To find which bit corresponds to a particular 
control code, subtract 0200 from the control code 
and divide the result by 2 (to eliminate upstroke 
codes). 

Examples : 

SWSSYSD and SWSSYSU correspond to bit 0 
(byte 0, bit 0) 

SWSTRIAO and SWSTRIAU correspond to bit 023 (19) 
(byte 2, bit 3) 
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...SWSEFECI 5 Enable case inversion I* 

...SWSEFDCI 6 Disable case inversion j* 

Note: SWSEFECI and SWSEFDCI will result in a LOCK |* 
key upstroke or downstroke being sent to the user j* 
program, depending on the state of case inversion.!* 

...SWSEFKAB 012 followed by (CKEY); Abort field keyin |* 
on detection of ocntrol key downstroke. |* 

This control sequence may be issued for |* 
more than one key for a cumulative effect. |* 

...SWSEFKAR 013 Reset all field keyin abort keys. I* 

...SWSEFKTP 014 followed by (CKEY); Activate function |* 
trap for control key downstroke specified. |* 

This control sequence may be issued for |* 
more than one key for a cumulative effect, j* 

Note: STRAPFK is used to set trap address. |* 

...$WSEFKTR 015 Reset all function key traps. I* 

SPRM Ref: SWSIO Vol .4 Sec. 11.10 
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$WSTATUS 


FUNCTION 


$WSTATUS 


Workstation, Get Current Status Bits 

Category: System Call 

Entered : 82 Jul 01 Updated : 84 Aug 08 | 

File : DSRMSWS 

Syntax : $WSTATUS (istatus, logical) 

Result : DfCCODE 

Entry 2 : logical BOOLEAN; Use Alternate SC if true; | 

gets status from static j 
key FIFO I 

* Exit 1: status $WSTAT; Status bits 

If Error : IF $WSTATUS (...) && DSCFLAG THEN JERMSG (); 

$ERRC.$FUNC = SCSWSTATUS 
SERRCJCODE = SECWSTAl 

Remarks : Availability of the various workstation statu; 

bits may be determined with SWCONFIG function. 

See Also: structure SWSTAT for status bits 

SPRM Ref: JWSTATUS Vol.4 Sec. 11.4 


$WSWAIT function $WSWAIT 

Datastation, Enable Port and Wait for Character 

Category: System Call 

Entered : 82 Jul 01 Updated : 82 Dec 01 

File : D$RMSWS 

Syntax : JWSWAIT () 

Result : DSCCODE 

If Error: No Error Occurs 

SPRM Ref: $WSWAIT Vol.4 Sec. 11.2 
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Following is a complete list of all downstroke codes: 


0-$WSSYSD 0200 

1- SWSVIEWD 0202 

2- $WSQUITD 0204 

3- $WSPNTD 0206 

4- $WSUND0D 0210 

5- $WSHELPD 0212 

6- $WSC0PYD 0214 

7- SWSREMVD 0216 

8- $WSINSTD 0220 

9- SWSRECLD 0222 

10— $WSEFF7D 0224 

11— SWSEFF8D 0226 

12— $WSEFFID 0230 

13— $WSEFF2D 0232 

14— SWSEFF3D 0234 

15— SWSEFF4D 0236 

16— SWSEFF5D 0240 

17— $WSEFF6D 0242 

18— JWSSQARD 0244 

19— SWSTRIAD 0246 


20- $WSCIRCD 0250 

21- SWSCKULD 0252 

22- SWSCKUCD 0254 

23- $WSCKURD 0256 

24- JWSCKCLD 0260 

25- SWSCKCCD 0262 

26- $WSCKCRD 0264 

27- $WSCKDLD 0266 

28- SWSCKDCD 0270 

29- $WSCKDRD 0272 

30- SWSCMDD 0274 

31- SWSENT1D 0276 

32- $WSNPE1D 0300 

33- $WSBAKlD 0302 

34- SWSSHF2D 0304 

35- $WSSHF4D 0306 


36- SWSALT2D 0310 

37- $WSALT3D 0312 

38- $WSENT2D 0314 
-$WSENTD 0314 

39- $WSBAK2D 0316 
-SWSBAKSD 0316 

40- $WSTABD 0320 

41- $WSNPTBD 0322 

42- JWSNPE2D 0324 
-SWSNPEND 0324 

43- SWSLOCKD 0326 
-SWSCASED 0326 

44- $WSSHFLD 0330 
-SWSSHF1D 0330 

45- $WSSHFRD 0332 
-$WS5HF3D 0332 

46- SWSALTLD 0334 
-SWSALT1D 0334 

47- SWSALTRD 0336 
-$WSALT4D 0336 


I BYTE 6 : (Returned only by JWSEFSTC and SWSEFSTL) | 
I I 
I $WSEFRDY 0001 Key ready | 
ISWSEFONL 0200 1 ONLINE' status (always true) | 


... continued 
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Escape 1 Sequences that require that the 

o Key code Translate Module path be enabled. 

All sequences begin: $WSESC1,$WSEFCTL,... 


. ..SWSEFLCD 2 followed by (MASK),(CONTROL) 

LCD display segment control 

MASK and CONTROL bit definitions (are the same): 

SWSLCDLC 0001 LOWER CASE "a" (0/1) (OFF/ON) 
SWSLCDUC 0002 UPPER CASE "A" (0/1) (OFF/ON) 
SWSLCDDP 0004 DISPLAY (0/1) (OFF/ON) 

JWSLCDKD 0010 KEYBOARD (0/1) (OFF/ON) 

SWSLCDSQ 0020 SQUARE (0/1) (OFF/ON) 

SWSLCDTR 0040 TRIANGLE (0/1) (OFF/ON) 

SWSLCDCR 0100 CIRCLE (0/1) (OFF/ON) 

Note: If the MASK bit is set, the CONTROL bit is 
interpreted, otherwise the CONTROL bit is ignored. 

...$WSEFRPT 4 followed by (TIME); set repeat key 

timeout in increments of 16 milliseconds. 


If TIME is..1 THEN action taken by Nucleus is... 


0 |IF keycode is ready, THEN return it. 

|IF not, THEN return SWSRPTK. 


1 - 076 |Set timer to go off after (TIME)*16. 

jIF keycode is received before timeout, 
fTHEN disable timer AND return keycode, 

I OTHERWISE, return SWSRPTK after timeout. 


077 - 0377 |Disable repeat key timeout. 


.... continued 
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TYPES AND STRUCTURES 


FORMAT HEADINGS 


ENTERED .: Date the TYPE was added to Dictionary 

UPDATED .: Date TYPE definition or comments 

were changed in the Dictionary. 
INCLUDE FILE....: DASL file where this TYPE is defined 
USED by FUNCTION: Functions who use this TYPE argument 
USED in TYPE....: TYPES that use this TYPE as a field 
POINTED TO in...: TYPES that have pointers to this TYPE 


Primary DASL Variable Types 

All other variable types are constucted from 
these primary types, using structures, unions and 
arrays. 

BOOLEAN ;DASL scalar data type: 1 byte unsigned 

BYTE ;DASL scalar data type: 1 byte unsigned 

CHAR ;DASL scalar data type: 1 byte unsigned 

INT ;DASL scalar data type: 2 bytes signed 

LONG ;DASL scalar data type: 4 bytes signed 

UNSIGNED ;DASL scalar data type: 2 bytes unsigned 
FUNCTION ;DASL variable type: up to 13 parameters 
(1,2 or 4 byte scalar values or pointers) 
and 1 optional scalar result value. The 
number of parameters may vary with 
different compilers. 


NOTE: PCR 

the Program Communications Region 
is listed here as a TYPE, but it is not. 


The PCR is an EXTERNALLY DEFINED group of 
variables. 
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$ABSHDR type $ABSHDR 

Library Absolute Element Header Sector 

entered.: 82 Jul 01 UPDATED.: 84 Jul 01 

include pile....: D$RMSSTRUCT 
USED in TYPE _: SLIBSECTOR 

TYPDEF SABSHDR STRUCT { 


$LIBMAP [64] BYTE; Primary MAP First byte 
ENUMV(0,$LIBMT,$LIBPRIV,$LIBSHAR,$LIBTBAD) 
SLIBNAA UNSIGNED; Next Available Address 
$LIBUCS UNSIGNED; Two Bytes Used; Must be set -1 
SLIBEPT UNSIGNED; Entry Point Address 
SLIBNOPG BYTE; Number of Page Groups 
DEFINE($LIBMXPG,57) 

SLIBPG1 [SLIBMXPG] UNION { Page Groups 

STRUCT { 

SLIBNPAG BYTE; Number of pages 
$LIBFPAG UNSIGNED; First page 
}; 

$ LIBNPAT UNSIGNED; Number of patch blocks 
}; 

SLIBXX [2] BYTE; Unused 
SLIBSPID $NAMET; Shared Program I.D. 

}; 
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$ACB 


TYPE 


$ACB 


Aim Control Block 

entered.: 82 Jul 01 UPDATED.: 84 Jul 01 

INCLUDE FILE _: DSFAR 

USED i n TYPE. . . . : $ FCBA 

TYPDEF $ACB STRUCT { AIM control block 

SACBSTAT BYTE; AIM status byte 
$ACBIOST BYTE; AIM I/O status byte 
SACBCNFG BYTE; Index config byte 
SACBACC BYTE; File access flags (SACCODES) 
SACBLUP CHAR; Lowest upper-case character 
$ACBHUP CHAR; Highest upper-case character 
SACBIGNR CHAR; Don't care character 
Jf ACBKEYN BYTE; Number of keys configured 
SACBKEYL BYTE; Aggregate key length 
SACBEXCL [7] BYTE; Map of excluded key fields 
SACBINDX $LSN; LSN of current index header 
SACBSLOC A CHAR; Pri reed select key location 
SACBSLGT BYTE; Pri reed select key length 
SACBSKEY [8] BYTE; Pri reed select key 
SACBPCNT UNSIGNED; Nbr of primary maps 
SACBPSEG BYTE; Nbr of primary segments/sector 
SACBPSLN BYTE; Primary segment length 
SACBELSN $LSN; LSN of extension index 
SACBECNT UNSIGNED; Number of extension maps 
SACBETXT [4] BYTE; Start of data expansion 

SACBCALL UNSIGNED; AIM user 

SACBFALS UNSIGNED; False hits 

$ACBBUFS BYTE; Nbr of buffers (todo) 

SACBCLSN $LSN; Current LSN 
SACBMLSN $LSN; LSN of current AIM map 
SACBBASE $LSN; Data file base LSN 
SACBMSTR BYTE; Number of master keys 
SACBNMAP UNSIGNED; Map number 
SACBMCUR UNSIGNED; Access map cursor 
SACBFCUR BYTE; Free float buffer curso 
$ACBDCUR SFILEPTR; Data file cursor 
SACBPMLN BYTE; Length of primary maps 
SACBTMAP [32] BYTE; Current triplet map 

... .continued 
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SACBHFDB $PFDB; Start of the work buffer PFDB 

$X1 [4-1] SPFDBBUF; 

SACBPFDB JPFDB; Start of the AIM index PFDB 

$X2 [8-1] SPFDBBUF; 

}; 


$ACCODES tv pe $ACCODES 

File Access Codes 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: DSRMSIO 

USED ip type....: SFILEKEY $PIPEGENPT $ S ECURETBL 
TYPDEF SACCODES File Access Codes 

SET($NEWFILE,$ACREAD,$ACWRIT,$ACATALG, 

$ACREATE,$ACRENM,$ACKILL,$ACSECQ) ; 

DEFINE(SACREPX,SACSECQ) 

DEFINE(SACMAX,($ACSECQ+$ACKILL+SACRENM+ 

$ACREATE+$ACATALG+$ACWRIT+$ACREAD)) 
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BOOLEAN 


TYPE 


BOOLEAN 


DASL scalar data type: 1 byte unsigned 

entered. 83 Apr 20 UPDATED.: 

*** DASL COMPILER DEFINED, primary data TYPE *** 


BYTE 


BYTE 


DASL scalar data type: 1 byte unsigned 

entered.: 83 Apr 20 UPDATED.: 

*** DASL COMPILER DEFINED, primary data TYPE *** 


$CFGEND ty pe $CFGEND 

SSCANCFG Keyword List Terminator 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE _: D$UFRSCAN 

used in type....: (with $CFGEND) 

TYPDEF SCFGEND BYTE; $SCANCFG Keyword List Terminator 
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$CFGHDR 


TYPE 


$CFGHDR 


SSCANCFG Configuration Header 

entered .: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: DSUFRSCAN 
USED by FUNCTION: $ SCANCFG 

TYPDEF SCFGHDR [13] CHAR; 

Note: A SCFGHDR type variable is typically followed 

by a SCFGEND, or by 'n' SCFGKEY's and one SCFGEND. 


$CFGKEY 


$CFGKEY 


SSCANCFG Keyword Parameters 

entered.: 82 Jul 01 UPDATED.: 82 Mar 02 

INCLUDE file_: DSUFRSCAN 

used in type....: (with SCFGEND) 

TYPDEF $CFGKEY STRUCT { SSCANCFG Keyword Parameters 
$CFGKEYW [9] CHAR; Keyword 
SCFGFLAG BYTE; Control byte 

Masks: SCFGNOVM, SCFGLONG, SCFGGTN 
SCFGVPT, SCFGFND 
$CFGNOKS BYTE; Number of values 
$CFGTYPE BYTE; Type flag 
SCFGVLGT BYTE; Value length 
$CFGADDR A BYTE; Output address 
}; 
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CHAR 


TYPE 


CHAR 


DASL scalar data type: 1 byte unsigned 

entered.: 83 Apr 20 UPDATED.: 

*** DASL COMPILER DEFINED, primary data TYPE *** 


$CVSTBL 


$CVSTBL 


SCVSTIME Output Area 

entered.: 82 Jul 01 UPDATED.: 83 Apr 23 

INCLUDE FILE....: DSUFRGEN 

USED by FUNCTION: SCVSTIME 

TYPDEF SCVSTBL STRUCT { SCVSTIME Output Area 
$CVSTDOU BYTE; Day of Week , 0-6 (0=sunday) 
SCVSTMON BYTE; Month of Year , 0-ll(0=Jan) 
SCVSTDAY BYTE; Day of Month , 0-30(0=lst) 

SCVSTYR UNSIGNED; Year , 1901-2100 

SCVSTJD UNSIGNED; Julian Date (Day of Year),0-365 
SCVSTHH BYTE; Hour of Day , 0-23 
SCVSTMM BYTE; Minute of Hour , 0-59 

SCVSTSS BYTE; Second of Minute, 0-59 

}; 
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D$CALLF T v pe D$CALLF 

Declare Name to be a Callable Function Type Routine 

entered.: 82 Jul 01 UPDATED.: 84 Aug 08 

INCLUDE FILE....: D$ INC 
POINTED TO in...: SSTARTADR 

USED by FUNCTION: D$ CALL , D$ JUMP |* 


TYPDEF DSCALLF (); Declares a Function type with 
no parameters, and no RESULT. 

The function may be defined later 
in the code, or externally. 


D$CCODE type D$CCODE 

Condition Code Flags 

entered..: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: DSINC 


TYPDEF DSCCODE 

SET(D$CFLAG, DSZFLAG, DSSFLAG, D$PFLAG); 

These are the Condition Code assignments which are 
valid after a system function has been executed. 
Often the function RESULT value is TYPE DSCCODE. 
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$DCB 


TYPE 


$DCB 


Data File Control Block 

entered.: 82 Jul 01 UPDATED.: 83 Jul 01 

INCLUDE FILE_: DSFAR 

USED in TYPE. $ FC B A $FCBD SFCBIS 

TYPDEF SDCB STRUCT { Data File Control Block 

SDCBFLG1 BYTE; DFCB flag byte 1 

SDCBFLG2 BYTE; DFCB flag byte 2 

SDCBACC BYTE; file access flags ($ACC0DES) 

SDCBBLK BYTE; Block size from SMFDBLSZ 

SDCBCLRP SFILEPTR; Logical record ptr (LSB..MSB) 

SDCBCLFP SFILEPTR; Curnt (real) file ptr (LSB..MSB) 

SDCBEOFP SFILEPTR; EOF pointer 

SDCBCBFP BYTE; Current buffer 

SDCBHBFP BYTE; High dirty buffer pointer 

SDCBCPFD A SPFDB; Current PFDB pointer 

SDCBAPFD A SPFDB; Alternate PFDB pointer 

UNION { 

STRUCT { 

SDCBPFDB SPFDB; Data file PFDB 
$X7 [16-1] SPFDBBUF; 15 more buffers 
}; 

SDCBMAB SMAB; Managed DCB redefinition of PFDB 

}; 

}; 
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SDISTBL 


TYPE 


$DISTBL 


$DISORT Parameter Table 

entered.: 82 Jul 01 UPDATED.: 83 Jul 23 

INCLUDE FILE....: DSUFRGEN 

USED by FUNCTION: $ D I SORT 

TYPDEF SDISTBL STRUCT { $DIS0RT Parameter Table 
SDISNUM UNSIGNED; Number of table entries 
SOISTAB A BYTE; Location of table 
SDISRLEN UNSIGNED; Length of table entry 
SDISKEY UNSIGNED; Displacement of key within entry 
SDISKEYL UNSIGNED; Length of key 
SDISWORK A BYTE; Location of work area 
}; 


$DSTINFO type $DSTINFO 

Daylight Savings Time Start/Stop Table 

entered.: 83 Jul 23 UPDATED.: 

INCLUDE FILE....: DSRMSGEN 
used in type....: $SYSTINFO 


TYPDEF SDSTINFO STRUCT { 

STMDSTMN BYTE; Month to Start/End DST 
STMDSTWD BYTE; Day of Week to Start/Stop DST 
$TMDSTDC BYTE; Number of Days to Count 
STMDSTFG DST Start/Stop Flags 

SET(STMDSTDI); l=From End 
0=From Start 
STMDSTHR BYTE; Hour Start/Stop DST 
}; 
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$ENVN 


TYPE 


$ENVN 


Environment Name 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: D$ RMS 

USED by FUNCTION: SENVDEL SENVLOC 

USED in TYPE. SENVT $NAMEEXTENV SSFENT 

POINTED TO in...: SFILESPK 

TYPDEF SENVN [8] CHAR; Environment Name 


$ENVT type $ENVT 

User Environment Table Entry 

entered.: 83 Apr 02 UPDATED.: 84 Aug 08 

INCLUDE FILE_: DSUFRENV 


USED by function: SENVFNDM SENVINS $ENVLGET SENVLOC 

SENVPDAT SENVPEEL SENVPHSI SENVPNAM 

SENVPNET SENVPNOD SENVPPAS SENVPRES 

SFILEPCN 

pointed to in...: SENVT (itself, linking action) 

TYPDEF $ENVT STRUCT { Environment Table Entry 
NAME SENVN; Environment name 
LINK A SENVT; Link to next entry (set by UFR) 
DATA [0] CHAR; Environment data (Net, Node, 

HSI, Passwords, Access Codes); 
See S0PENPT.S0TENV 

}; 

Note: Blank fill with SWSBLANK characters 
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$ERRCODE 


TYPE 


$ERRCODE 


RMS Standard Error Code 

entered.: 82 Jul 01 UPDATED.: 84 Aug 08 

INCLUDE FILE....: D$RMS 

used in type _: $ERRC (an external variable) I 

TYPDEF SERRCODE STRUCT { RMS Standard Error Code 
SCODE BYTE; Error number 
SFUNC BYTE; Routine number 
}; 


$EXTT 


TYPE 


$EXTT 


File Extension 


ENTERED. 

INCLUDE FILE 
USED in TYPE 


POINTED TO in...: 


82 Jul 01 UPDATED.: 82 Dec 01 
DSRMS 

SFILEINFO SNAMEEXT SNAMEEXTENV SSFENT 

$ SFITABLE 

SFILESPK 


TYPDEF $EXTT [4] CHAR; ; File Extension 

Note: Blank fill with SWSBLANK characters 
or regular blanks. 
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$FCBA 


TYPE 


$FCBA 


File Control Block for AIM File Structure 

entered.: 82 Jul 01 UPDATED.: 83 Mar 02 

INCLUDE FILE....: D$FAR 

used by function: SACLOSE $ADELCR SAINS SAIOCLR 

SAOPEN SAPOS SAREAD SAREADCR 

SAREADKG SARWRTCR SAWRITE 

USED in TYPE....: SFCBAIM 

TYPDEF SFCBA STRUCT { 
fFCBFLGl BYTE; Flag byte 1 

Type Mask: SFCSTMSK 
Types: SFCSTICB, SFCSTDCB, SFCSTSIB, 
SFCSTPRT, SFCSTPRU, SFCSTACB, SFCSTSAB 
Other Bits: SFCSOVER, SFCSCMPR, 
SFCSBIN, SFCSOPEN, SFCSMNGD 
SFCBUREC A CHAR; User record address 
SFCBRLGT UNSIGNED; Length of the user record 
SFCBDBFS BYTE; Numbr of buffers assciatd with D.PFDB 
SFCBFLG2 BYTE; AIM flag byte 

Bits: ASABORT, ASAPMISS, ASPRISEL 
ASUPCASE, ASSHARE 

SFCBKEY A a CHAR; Pointer to user's key list 
See example in SFCBAIM 
SFCBKLGT BYTE; Number of keys in key list 
SFCBBLKL BYTE; Number of AIM PFDB buffers 
SFCBLINK [2] UNSIGNED; Primary links 
SFCBSLLH [2] UNSIGNED; Secondary links 
SFCBHASH BYTE; Hash code for data file name 
SFCBACB $ACB; Start of the ACB 
SFCBDCB $DCB; Start of the DFCB (data file) 

}; 
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$FCBAIM type $FCBAIM 

Macro to Configure AIM File Control Block 

entered.: 82 Jul 01 UPDATED.: 83 Apr 12 

INCLUDE FILE....: D$ F AR 


DEFINE (JFCBAIM, #[ 

STRUCT { 

$FCBA JFCBA; 

} 

IFELSE(#1,,,#[ :=$FCBAIMI(#1,#2,#3,#4,#5,#6)#]) 

#]) 

PROGRAM EXAMPLE: 

/* User's Key List 


<length> number of ASCII bytes in specification 
1 Index to first character 

'NNS<key>' Key specification where: 

NN is fie1d:2 decimal digits or blank, decimal digit 
S specifies search type (X,L,R,or F) 

<key> is the actual key characters 

Note: var [] CHAR := ... Automatically counts 

array size assigned. */ 

keyl [] CHAR := {<length>,l, , NNS<key>‘}; 
key2 [] CHAR := {<length>,l,'NNS<key>'}; 
key [] a CHAR := { &keyl[0], 8key2[0]}; /* Pointer 

Array */ 

/* Macro Parameters: 

&record[0] Address of first character in record 
maxrcdln Max Record Length 

&key[0] Address of first Key Pointer 

key In Number of Keys 

[,rbuf] Number of Data Buffers [1 if no spec] 

[,ibuf] Number of Index Buffers[l if no spec] 

*/ 

aim file JFCBAIM ( &record[0], maxrcdln, &key[0], 
keyln [,rbuf] [,ibuf]); 

{ aim file.$FCBA.$FCBFLGl :=?;?= some flag 
IF $AI0CLR(8work, &aim file.$FCBA) && DJCFLAG 
THEN $ERMSG(); } 
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$FCBAIMI 


TYPE 


$FCBAIMI 


Initializer Macro used by Macro $FC8AIM 

entered.. 83 Apr 12 UPDATED.: 84 Jul 15 

INCLUDE FILE....: D$ FAR 
USED in TYPE....: SFCBAIM 


DEFINE(SFCBAIMI,#[ 

{{ $FCSTACB,#1,#2, 

IFELSE(#5,,2,#5),0,#3,#4,IFELSE(#6,,1,#6), 
{0,0}, {0,0}, 0 
{ 0,0,0,0,'A','Z', 1 ?’,0,0, 

{0,0,0,0,0,0,0}, {0,0}, 
0,0,'????????‘,0,0,0, 

{0,0}, 0, {0,0,0,0}, 0,0,0, 

{0,0}, {0,0}, {0,0}, 0,0,0,0, 

{ 0 , { 0 , 0 } }, 0 , 

{ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

}, 

{ -1,{-1,-1}, 4,-1, 4, {{-1,-1,-1}} }, 

{ {-l, -i,-i}, {-i,-i,-n, {-i,-i,-n }, 

{ - 1 ,{- 1 ,- 1 }, 8 ,- 1 , 8 , {{- 1 ,- 1 ,- 1 }} }, 

{ {- 1 , - 1 ,- 1 }, {- 1 ,- 1 ,- 1 }, {- 1 ,- 1 ,- 1 }, 

{-1, -1,-1}, {-1,-1,-1}, {-l,-l,-l} 

{-1, -1,-1}, 

} 

}. 

{ 0 , 0 , 0 , 0 , 

{ o, {0,0} }, 

{ o, {0,0} }, 

{ o, {0,0} }, 

0,0,0,0, 

{ - 1 , {- 1 ,- 1 }, 2 ,- 1 , 2 , {{- 1 ,- 1 ,- 1 }} }, 
{ {- 1 , - 1 ,- 1 }, {- 1 ,- 1 ,- 1 } } 


I* 

I* 

I* 

I * 


I* 

I* 

I* 

I* 

I* 

I* 


I* 

I* 


}} 

#]) 
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$FCBD 


TYPE 


$FCBD 


File Control Block for Direct File 

entered. : 82 Jul 01 UPDATED.: 83 Mar 02 

INCLUDE FILE _: D$FAR 

used by function: SDCLOSE $ DDE L $ DDELCR $DGETCRK 
SDIOCLR $ DOP EN $DP0S SDP0SE0F 
SDPOSNX $ DP 0 SP V $DREAD $DREARCR 
SDREADNX $DREADPV SDRWRT SDRWRTCR 
SDWRITE SDWRITENX SDWRTEOF 

used in type_: ( Initializer Macros: SFCBDIR 

$FCBDIRPRT $FCBDOVR $FCBPRT ) 

TYPDEF $FCBD STRUCT { 

SFCBFLG1 BYTE; Flag byte 1 

Type Mask: $FCSTMSK 
Types: SFCSTICB, $FCSTDCB, $.FCSTSIB, 
SFCSTPRT, SFCSTPRU, SFCSTACB, $FCSTSAB 
Other Bits: $FCS0VER, SFCSCMPR, 
SFCSBIN, SFCSOPEN, $FCSMNGD 
SFCBUREC A CHAR; User record address 
SFCBRLGT UNSIGNED; Length of the user record 
SFCBDBFS BYTE; Number of buffers associated w/D.PFDB 
$FCBDCB2 $DCB; }; Start of the data control block 
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$FCBDIR type $FCBDIR 

Macro to Configure Direct File Control Block 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE. . ..: D$FAR 


DEFINE (SFCBDIR, #[ SFCBDIRPRT(#1,#2,#3,SFCSTDCB) #] ) 

see structure macro: $FCBDIRPRT 

PROGRAM EXAMPLE: (see parameters in SFCBAIM ) 

direct_file SFCBDIR (&record[0],maxrcdln[,nbuf]); 

{ direct_file.JFCBD.SFCBFLGl := ?; 

IF SDIOCLR(&work, &direct_file.SFCBD) && DSCFLAG 
THEN $ERMSG(); } 


$FCBDIRPRT type $FCBDIRPRT 

Macro used by Macros SFCBPRT,SFCBDIR,SFCBDOVR 

entered. : 82 Jul 01 UPDATED.: 83 Apr 12 

INCLUDE FILE . . DSFAR 

USED in type....: SFCBDIR SFCBDOVR SFCBPRT 

DEFINE (SFCBDIRPRT, #[ 

STRUCT { 

SFCBD SFCBD; 

IFELSE(#5,,,$pfdb SPFDB; Spfdbb [16-1] SPFDBBUF;) 

} 

IFELSE(#1,,,#[:=SFCBDIRPRTI(#1,#2,#3,#4)#] ) 

#] ) 

EXAMPLES OF USE: 

DEFINE (SFCBDIR, 

#[ SFCBDIRPRT(#1,#2,#3,SFCSTDCB)#]) 

DEFINE (SFCBDOVR, 

#[SFCBDIRPRT(#1,#2,#3,$ FCSTDCB+S FCSOVER,1)#3) 
DEFINE (SFCBPRT, 

#[SFCBDIRPRT(#1,#2,#3,SFCSTPRT,1)#]) 
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$FCBDIRPRTI 


TYPE 


$FCBDIRPRTI 


Initializer Macro used by Macro $FCBDIRPRT 


entered . 83 Apr 12 UPDATED.: 

INCLUDE FILE....: D$FAR 
USED in TYPE....: $ FCBDIRP RT 

DEFINE (JFCBDIRPRTI, 

#[{{#4,#1.#2,IFELSE(#3,,1,#3 )}}#]) 


$FCBDOVR type $FCBDOVR 

Macro to Configure Direct-Overlapped I/O FCB 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: D$FAR 


DEFINE ($FCBD0VR, 

#[ $FCBDIRPRT(#I,#2,#3,$FCSTDCB+$FCS0VER,1) #] ) 

see structure macro: $FCBDIRPRT 

PROGRAM EXAMPLE: (see parameters in SFCBAIM ) 

dir_ovr_fi1e SFCBDOVR (&record[0],maxrcdln[,nbuf]); 

{ dir ovr_file,$FCBD.$FCBFLGl := ?; 

IF lDI0CLR(4work, &dir_ovr_fi1e.$FCBD) && DSCFLAG 
THEN $ERMSG(); } 
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$FCBIS 


TYPE 


$FCBIS 


File Control Block for ISAM File 

ENTERED.: 82 Jul 01 UPDATED.: 83 Mar 02 

INCLUDE FILE....: D$FAR 

USED by function: $ICL0SE SIDEL $IDELCR $IDELK 

SIINS SIIOCLR $ IOPEN $IP0S 

SIPOSKP SIPOSKS SIPREP SIREAD 

JIREADCR $ IREADKP $ IREADKS SIRWRT 

$IRWRTCR SIWRITE 

USED in TYPE....: JFCBISAM 

TYPDEF SFCBIS STRUCT { 

SFCBFLG1 BYTE; Flag byte 1 

Type Mask: SFCSTMSK 
Types: SFCSTICB, SFCSTDCB, SFCSTSIB, 
$FCSTPRT, JFCSTPRU, SFCSTACB, $FCSTSAB 
Other Bits: $FCS0VER, SFCSCMPR, 
JFCSBIN, $FCS0PEN, JFCSMNGD 
SFCBUREC A CHAR; User record address 
SFCBRLGT UNSIGNED; Length of the user record 
SFCBDBFS BYTE; Numbr of buffrs associatd with D.PFDB 
SFCBFLG2 BYTE; User ISAM flag byte 

Bits: SFCSIDUP, SFCSISHR, SFCSNKEY 
SFCBKEY A CHAR; Address of the user's ISAM key area 
SFCBKLGT BYTE; Length of the ISAM key 
SFCBBLKL BYTE; Length of ISAM block in sectors 
SFCBLINK [4] BYTE; Primary links 
SFCBSLLH [4] BYTE; Secondary links 
SFCBHASH BYTE; Hash code for data file name 
SFCBICB SICB; Start of the ICB 
SFCBDCBl $DCB; Start of the DFCB (data file) 

}; 
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SFCBISAM 


TYPE 


$FCBISAM 


Macro to Configure ISAM File Control Block 

entered.: 82 Jul 01 UPDATED.: 83 Apr 12 

INCLUDE FILE_: D$FAR 

DEFINE (SFCBISAM, #[ 

STRUCT { 

SFCBIS SFCBIS; 

$k [1+ IFELSE(#4,,0,(#4)) ] BYTE; 

} 

IFELSE(#1,,,#[:=SFCBISAMI(#1,#2,#3,#4,#5)#]) 

#] ) 

PROGRAM EXAMPLE: (see parameters in SFCBAIM ) 

isam_file SFCBISAM ( &record[0], maxrcdln, &key[0], 

keyln [,nbuf] ); 

{ isamfile.SFCBIS.SFCBFLG1 := ? }; 

IF $IIOCLR(&work, &isam_file.SFCBIS) && DSCFLAG 
THEN SERMSGO; } 


$FCBISAMI type $FCBISAMI 

Initializer Macro used by Macro SFCBISAM 

entered.: 83 Apr 12 UPDATED.: 

INCLUDE FILE....: DSFAR 
USED in TYPE . SFCBISAM 

DEFINE($FCBISAMI, 

#[{{SFCSTICB,#1,#2,IFELSE(#5,,1,#5),0,#3,#4,0}}#]) 
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$FCBPRT type $FCBPRT 

Macro to Configure Print File Control Block 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE. . . . : D$FAR 


DEFINE (SFCBPRT, 

#[ $FCBDIRPRT(#1,#2,#3,JFCSTPRT,1)#]) 

see structure macro: SFCBDIRPRT 

PROGRAM EXAMPLE: (see parameters in SFCBAIM ) 

direct_file $FCBDIR (&record[0],maxrcdln[,nbuf]); 

( direct_file.$FCBD.$FCBFLGl := ?; 

IF $DIOCLR(&work> &direct_file.$FCBD) && DSCFLAG 
THEN $ERMSG(); } 
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FFMTABL$ 


TYPE 


FFMTABL$ 


File Format Table 

entered.: 82 Jul 01 UPDATED.: 83 Jul 01 

INCLUDE FILE _: D$UFRGEN 

EXTERN FFMTA8L$ [0] STRUCT{ File Format Table 

SFFTCODE BYTE; File Format Code ($FFMT...) 

$FFTNAME [4] CHAR; File Format Name 

}; 


$FILEINFO ty pe $FILEINFO 

Info Returned by SFILENAM Mode of SFILES 

entered.: 82 Jul 01 UPDATED.: 83 Jul 01 

INCLUDE FILE....: D$ RMS I 0 

USED by FUNCTION $$FILENAM 

POINTED TO in...: $ F ILESTBL 

TYPDEF SFILEINFO STRUCT { 

SFILFNAM SNAMET; File name 
SFILFEXT SEXTT; Extension 
SFILFLEN $LSN; LSN of EOF sector 
SFILFINC UNSIGNED; File increment in sectors 

SFILFFMT BYTE; File format code (SFFMT_) 

SFILFCT STIME; File creation time 
SFILSEGM BYTE; Number of used segments, 32 max 
SFILALLO $LSN; LSN of last allocated sector 
}; 
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$FILEKEY 


TYPE 


$FILEKEY 


File Key Structure 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE . D$RMS I 0 

USED in TYPE. $ F I LEKEYS 

TYPDEF SFILEKEY STRUCT { File Key Structure 

SFDTKEYL SPACKPW; Packed Password 
SFDTACCO SACCODES; Access Code 
}; 


$F I LEKEYS 


$F I LEKEYS 


File Key List Array 

ENTERED .: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: D$RMSI0 

USED in TYPE.. ..: SPIPEGENPT $SECURETBL 

TYPDEF SFILEKEYS [SFDTKEYN] SFILEKEY; 

Array of 9 (SFDTKEYN) keys 
(password, access code) 
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$FILEPTR 


TYPE 


$FILEPTR 


File Pointer Structure 

ENTERED.: 82 Jul 01 UPDATED.: 83 Jul 23 

INCLUDE FILE....: D$ RMS 

used by function: $DDEL SDGETCRK $DGETNRK 

$ DP OS SDREAD SDRWRT 

SDRWRITE STXPOSIT SWFPOSIT 

used in type _: $ACB 1 time $DCB 3 times 

$ICB 1 time $WFCB 3 times 

TYPDEF SFILEPTR UNION { File Pointer Structure 
STRUCT { 

SFPTRBUFOF BYTE; Offset within sector 
SFPTRLSN $LSN; LSN 
}; 

$FP LONG; Byte offset within file. 

Total length of file to current position 
in bytes. (Alternate method of file 
analysis). 
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$FILESPK 


TYPE 


$FILESPK 


$SCANFLS File Specification 

entered.: 82 Jul 01 UPDATED.: 83 Feb 01 

INCLUDE FILE . . . . : D$RMS 

USED by FUNCTION: $ SCAN FLS 

TYPDEF SFILESPK STRUCT { 

SFSOSFT SSFENT; Symbolic file table 
SFSOOPT Option 

SET($FILNAMR, SFILEXTR, SFILENVR, SFILANYR, 
$FILFDEF, $FILQMOK, SFILNDSP); 

SFSODNAM A SNAMET; Default name pointer 
SFSODEXT A SEXTT; Default extension pointer 
SFSODENV A SENVN; Default environment pointer 
}; 


PROGRAM EXAMPLE: 

Use of file name scanner: 
fileSpk [] SFILESPK := { 

{ { ’IN <$NAMET>'',<$EXTT>'', <$ENVN>" }, 

$FILNAMR, SNOADR, &<SEXTT>'TEXT\ &<SENVN>" }, 

{ { 'OUT <$NAMET>'',<$EXTT>'', <$ENVN>" }, 

SFILNDSP, 4fileSpk[0]. SFSOSFT.SSFTNAM, 

&<$EXTT>' REL ’, &<$ENVN>” } 

}; 

IF SSCANFLS(&fileSpkCO], 2) && DSCFLAG THEN SERMSG(); 
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$FILESTBL 


TYPE 


$FILESTBL 


Redefinition of $PFDB, Multi-File System Calls 

entered.: 82 Jul 01 UPDATED.: 84 Aug 08 

INCLUDE FILE. D$ RMS I 0 

USED by FUNCTION: $ F IL E S SGETSFI 

TYPDEF SFILESTBL STRUCT { 

SPFVID UNSIGNED; File access variable 

identification from $PFDB 

UNION { 

STRUCT { ...for SGETSFI 
$FX1 [6] BYTE; unused 
JSFIP A SSFITABLE; HSI, etc. 

}; 

STRUCT { Structure for SFILEPCN,SFILENAME mode 
SFPCNP A UNSIGNED; Pointer to PCN's 
$FX2 BYTE; 

SFTODO UNSIGNED; Number of PCN’s to convert 
$FX3 BYTE; 

SFNAMP A SFILEINFO; File info storage pointr 

}; 

STRUCT { Structure for JFILECHK mode 
$FPCN UNSIGNED; PCN of file 
SFFLAG BOOLEAN; File open flag 
}; 

}; 

}; 
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"FUNCTION" 


TYPE 


"FUNCTION" 


DASL Function variable data type 

entered.: 83 Jul 23 UPDATED.: 

*** DASL COMPILER DEFINED, primary data TYPE *** 

The word "Function" is not used to declare function 
variable types; the parenthesis symbols are used: (). 

Example: 

FuncName (paraml type, ...paraml3 type) resultType ;= 
VAR variables types; 

{ Defining code }; 


$HSI 


TYPE 


$HSI 


Hierarchical Structure Information Array 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE : D$RMS 

USED in TYPE : SSFITABLE 

TYPDEF $HSI [32] CHAR; 

The high order bit of the last character of each 
catalog file name is set. 

Example: 

Catalog HSI seen in use as A.DOG.DATA 
is stored as 

ADOGDATA 
Octal MSBits 31131113 
00100020 
LSBits 14774141 
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$ICB 


$ICB 


ISAM Control Block 


entered .: 82 Jul 01 UPDATED.: 83 Jul 01 

INCLUDE FILE. . D$FAR 
USED in TYPE....: $ FCBI S 


TYPDEF $ICB STRUCT { ISAM Control Block 

SICBFLG1 BYTE; Flag byte 2(see $IFSTB LRIOCDEF/SRC) 
SICBACC BYTE; Index file access flags (SACCODES) 
SICBLFP $LSN; LSN of the ISAM LFP (LSB.MSB) 

SICBTOP $LSN; LSN of top of tree (LSB.MSB) 

SICBCURS A BYTE; Current block and offset (LSB.MSB) 
SICBDCUR SFILEPTR; Data file cursor (LSB.MSB) 
SICBMXKL BYTE; Maximum key length 
SICBCKEY A CHAR; Address of the key save area 
SICBPFDB SPFDB; Start of the index PFDB 
SX1 [8-1] SPFDBBUF; 7 more buffers 


}; 

I LONG type I LONG 

24 Bit Number Structure 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE _: D$INC 


TYPDEF ILONG STRUCT { 24 Bit Number Structure 

LSU UNSIGNED; Least significant 16 bits 
MSB BYTE; Most siginificant byte 
}; 
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$INFOITEM 


TYPE 


$INFOITEM 



TYPDEF SINFOITEM UNION { Info Returned by $INF0 

STRUCT { RESOURCES 

$IRONAME SNAMET; Resource name 
SIROKIND BYTE; Resource kind (SDK...) 

SIROSUBK BYTE; Resource sub-kind ( $SK_) 

SIROFLAG SRSRCFLAGS; Resource flags ( SIRF.. ) 
UNION { 

STRUCT { DISKS,MAG-TAPE,CASSETTES,COMM 

SIROSFTR UNSIGNED; Soft read error counter 
SIROHRDR UNSIGNED; Hard read error counter 
SIROSFTU UNSIGNED; Soft write error counter 
SIROHRDW UNSIGNED; Hard write error counter 
SIRORDCT ULONG; Read activity counter 
SIROWRCT ULONG; Write activity counter 
UNION { 

STRUCT { DISKS MAG-TAPE, CASSETTES 

SIROSUBD BYTE; Physical sub-device number 
SIROFREC UNSIGNED; Free clusters (DISK ONLY) 
SIROMAXC UNSIGNED; Max cluster avail ( " ) 
SIROSCLU BYTE; Sec. per cluster ( " ) 

SIROFCNT UNSIGNED; Open files counter ( " ) 
SIROTIME $TIME; Time of last access ( " ) 
SIROCVID UNSIGNED; Contrlr var.serial num(")? 
}; 

STRUCT { COMM DEVICE RESOURCE ONLY 

SIRCDRVR BYTE; Driver overlay ident. number 
SIRCOMET BYTE; Error threshold 
}; 

}; 

}; 

SIROERCT UNSIGNED; Error counter CARD READER 
}; 

}; LINE PRINTER 


continued 


30 DASL DICTIONARY Datapoint Confidential 04Aug84 







STRUCT { CONTROLLERS _ 

$ICID UNSIGNED; Controller variable identifier 

SICKIND ENUM Controller kind ($CK ) 

(SCK9350, SCK9370, SCK9374, SCK9390, 

JCK88D1, SCK88MEM); 

ENUMV(6, $CK9301, $CK9310, SCK1403, 

SCK9315, JCK9324); 

UNION { 

STRUCT { JCK9350,9370,9374,9390 

SICPORT BYTE; Logical port number 
SICACCNT [4] BYTE; Activity counter,read & wrt |* 
SICECNT1 UNSIGNED; Error counter 1 
SICECNT2 UNSIGNED; Error counter 2 
SICECNT3 UNSIGNED; Error counter 3 
SICECNT4 UNSIGNED; Error counter 4 
SICECNT5 UNSIGNED; Error counter 5 
); 

STRUCT { SCK88MEM 

SICMBANK BYTE; Memory bank number of CTV 
SICMBITS [22] BYTE; 22 bit err counters 

in CTV 

}; 

}; 

}; 

STRUCT { TAS_KS_ 

SITONAME SNAMET; Task name 
SITOMINM BYTE; Minimum number of sectors 
SITOACTN BYTE; Actual number of memory sectors 
SITOID BYTE; Task identification |* 

SITOFATH BYTE; Father task identification 
SITOPRTY BYTE; Priority 0 - SPRIMAX ($PRIN0RM) 
SITOMAXM BYTE; Maximum Number of Memory sectors 
}; Requested (PCR Utility, SMAXMEM) 

STRUCT { 

SISPNAME NAMET; Shared Program Name 
SISPSTAT BYTE; Shared Program Status 
DEFINE( $ISPMEM,037) 

SETV( 1«7, $ ISPLOK ) 

SISPUSER BYTE; Shared Program User Count 

}; 


continued 
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STRUCT { NODE,S tar tup / Boot Data 

SINSTART $TIME; _ Startup time 
SINVRP [5] CHAR; Ver/Rev/Pre ASCII lettrs vvrrp 
SINBNLPT BYTE; Nucleus library processor type 
SINBNLSL CHAR; Nucleus library suffix letter 
SINBCLSL CHAR; Command/DLL library suffix lettr 
SINBNETN $NAMET ; Boot net name 
UNBNODN SNAMET ; Boot node name 
SINBRESN SNAMET; Boot resource name 
}; 


J A- '■ ■' - fj ' 

STRUCT { NODES _ 

SINETNAM $NAMET; Network name 
SINONAME SNAMET; Node name 
SINFLAG SNODEFLAGS; Flags ( $ INF...) 
UNDID BYTE; Destination identification 
}; 


STRUCT { ■ u '" / f, CONNECTION LINKS , 

SILNAME SNAMET; Network Name 
SILFLAGS SNODEFLAGS; Flags ( $INF...) 

SILRXMES ULONG; Received message counter 
ULTXHES ULONG; Transmitted message counter 
SILIGCNT UNSIGNED; Ignored received message cnt 
SILTXERR UNSIGNED; Transmission Error Count 
SILTXABT UNSIGNED; Transmsn aborted(TA timeout) 
SILRCONF UNSIGNED; Reconfiguration counter 
}; 


continued 
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STRUCT { RESOURCE UTILIZATION INFO 

SIRUFLAG JIRUFLAGS; Flags ( $IRU.. ) 

$IRUTBUF BYTE; Total number of incoming buffers 
SIRUFBUF BYTE; Number of free incoming buffers 
SIRUTFAV BYTE; Total number of incoming FAVs 
SIRUCFAV BYTE; Number of consumed incoming FAVs 
SIRUWFAV BYTE; Num.incomng FAVs waitng on bufrs 
SIRUMEMA UNSIGNED; Nbr of available mem sectors 
tIRUSTFA UNSIGNED; System table first address 
SIRUSTEA UNSIGNED; System table end address 
SIRUMBUF BYTE; Peak value of($ IRUTBUF-$IRUFBUF) 
SIRUMFAV BYTE; Peak value of SIRUCFAV 
SIRUMKBC BYTE; Nbr of buffrs usd for FAV markrs 
SIRUMKFC UNSIGNED; Number of free FAV markers 
SIRUOVAC UNSIGNED; Overlay access counter 
SIRUOVLD UNSIGNED; Overlay load counter 
SIRUOVMT BYTE; Overlay wait counter I* 

SIRUSRWT BYTE; Nbr of users waiting to execute j* 

}; 


SDELIMT [16] BYTE; Name delimiter characters 

(Get info about Delimiters ?) 


$INFODUMMY [50] BYTE; 

}; 

Note: See SPRM Vol. 4 Sec. 3.4 Figure 3-1 
(Info Item Structure) 

Note: RMSCDEFS/SRC also provides definition 
of these elements 
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TYPF 


I NT 


I NT 


DASL scalar data type: 2 bytes signed 

entered. 83 Apr 20 UPDATED.: 

*** DASL COMPILER DEFINED, primary data TYPE *** 


$INTS 


$INTS 


Interupt State Table 

entered.= 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: D$RMSPR0G 

USED by function: JRFIAKS SRFIDKS SRFIFK SRFIKKS 
STRAPAKS $TRAPDKS STRAPFK 
STRAPKKS 

TYPDEF SINTS STRUCT { 

SINTSCC BYTE; Condition code 
$INTSREG [8] BYTE; Registers 
SINTSRAD A BYTE; Return address 
SINTSXAD SSTARTADR; Execute address 
}; 


See SPRM Vol. IV Sec 2.4 


$IRUFLAGS type $IRUFLAGS 

Resource Utilization Flags 

entered .: 82 Jul 01 UPDATED.: 83 Apr 12 

INCLUDE FILE . D$RMSGEN 

USED in TYPE....: $ INFO ITEM 

TYPDEF SIRUFLAGS 

SET( $IRUx, SIRUIFH, SIRUOFH, SIRUIFA); 
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SLIBENTRY 


TYPE 


$LIBENTRY 


Library Directory Entry 


entered.: 82 Jul 01 UPDATED.: 83 Jul 01 

INCLUDE FILE....: DSRMSSTRUCT 

used in type_: SUBSECTOR (an array of $LIBENTRY ) 


TYPDEF SLIBENTRY STRUCT { 

SLIBMTYP SUBTYPE; Type of this member: 

See SUBTYPE structure (names & values) 
SLIBHNAM SLNAMET; Member name 
SLIBMLSN UNSIGNED; First LSN 
SLIBMLEN UNSIGNED; Length in sectors 
SLIBHVRN BYTE; 3-bits version, 5-bits revision 
SLIBMLMD UNSIGNED; Last modification date 
}; 

SUBSECTOR type SUBSECTOR 

Library Sector Formats 

ENTERED .: 82 Oul 01 UPDATED.: 84 Aug 08 

INCLUDE FILE. DSRMSSTRUCT 

TYPDEF SUBSECTOR UNION { 

SL1BDIR [16] SLIBENTRY; Library directory 
SABSSECTOR UNION { Absolute member sectors 

SLAHDR SABSHDR; absolute header 
SLACODE [256] BYTE; absolute code 
}; Use this to analyse a file 

with unspecified format. 
SRELSECTOR STRUCT { Relocatable sectors 

SLIBSCODE SRELCODE; Relocatable sector type 
UNION { 

SLRPID SRELPID; Re 1 program ID sector 
SLROBJ SRELOBJ; Re 1 object code sector 
SLRXDEF SRELXDEF; Rel external def sector 
SLRXREF SRELXREF; Rel external ref sector 
SLRXFER SRELXFER; Rel starting adr sector 
SLRXEPN SRELEPNS; Rel entry point member sectr 
SLRLINE SRELLINE; Rel DEBUG line numbers sectr 
}; 

}; NOTE: This type is used to read and write 
}; library file sectors. 
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$LIBTYPE 


TYPE 


SUBTYPE 


Library Directory Entry Types 

entered.= 82 Jul 01 UPDATED.: 83 Feb 01 

INCLUDE FILE....: DJRMSSTRUCT 
USED in TYPE_: $ L 1 B ENTRY 

TYPDEF SUBTYPE 

ENUM($LIBFREE,$LIBTERM,$LIBLINK,$LIBABSX, 

$LIBABS0,$LIBRELL,$LIBT006); 

ENUMV(INCR(SLIBT006 ),$LIBEPN,$LIBT008, 

$LIBT009,$LIBT010,$LIBTOl1) 

ENUMV(INCR($LIBT011),$LIBDLL) 


SLNAMET 


SLNAMET 


Library Member Name 


entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: D$RMS 

USED by function: $LBDEL SLBFIND SLBGTLSN SMSGCXO 
used in type....: SLIBENTRY SMEMBER SRELPID 

TYPDEF SLNAMET [8] CHAR; 
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LONG 


TYPE 


LONG 


DASL scalar data type: 4 bytes signed 

entered. : 83 Apr 20 UPDATED.: 

*** DASL COMPILER DEFINED, primary data TYPE *** 

LSW.LSB LSW.MSB MSW.LSB MSW.MSB ? 

$LSN type $LSN 

Logical Sector Number 

entered . 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_ : D$RMS 

used in type . $ACB 4 times SFILEINFO 2 times 

$ ICB 2 times JFILEPTR 

$0PENPT $ P FDB SSECURETBL 

TYPDEF $LSN ULONG; 

$MAB type $MAB 

Managed File Access Block 

ENTERED .: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....! D$FAR 

used in type....: $DCB (managed) 

TYPDEF $MAB STRUCT { 

SMABID UNSIGNED; ID of entity being managed 
SMABLINK STRUCT { Links 

$LNK1 UNSIGNED; 

$LNK2 UNSIGNED; }; 

SMABUAT UNSIGNED; User access token (UAT) ID 
SMABLGON UNSIGNED; Log-on pipe FAV 
fMABRQIN UNSIGNED; Request init pipe FAV 
SMABPRIV UNSIGNED; Private pipe 

(reques t+response)FAV 
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$MEMBER 


TYPE 


SMEMBER 


Library Member Structure 

entered.: 82 Jul 01 UPDATED.: 83 Jul 01 

INCLUDE FILE....: D$UFRLIB 

USED by FUNCTION: SLBADD SLBFIND 

TYPDEF SMEMBER STRUCT { 

SLIBMTYP BYTE; Type of this member ($LIB...) 
SLIBMNAM SLNAMET; Member name 
SLIBMLSN UNSIGNED; First LSN 
SLIBMLEN UNSIGNED; Length in sectors 
SLIBMVRN BYTE; 3-bits version, 5-bits revision 
SLIBMLMD UNSIGNED; Last modification date 
}; 

NOTE: SMEMBER and SLIBENTRY are "identical" 

except SLIBMTYP is type BYTE in SMEMBER 
and type SLIBTYPE in SLIBENTRY 


$NAMEEXT 


$NAMEEXT 


Name, and Extension 

entered . 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE _: D$RMS 

POINTED TO in...: SOPENPT 

TYPDEF SNAMEEXT STRUCT { 

SNAME SNAMET; Name 
SEXT SEXTT ; Extension 
}; 


NOTE: Blank fill with SWSBLANK character 
or normal blanks. 
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$NAMEEXTENV 


TYPE 


$NAMEEXTENV 


Name, Extension, and Environment 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: DSRMS 

USED by function: $A0PEN SGENSMSK SGENSTST 
SIOPEN $IPREP SNQDQLGN 

TYPDEF SNAMEEXTENV STRUCT { 

$NAME SNAMET; Name 
SEXT $EXTT ; Extension 
$ENV $ENVN; Environment 
}; 


NOTE: Blank fill with $WSBLANK character 
or normal blanks. 

$NAMET type $NAMET 


File Name Type 

entered.: 82 Jul 01 UPDATED.: 84 Jul 01 

INCLUDE FILE....: D$RMS 

used by function: $L0CKRIM SDONATFV $FSCAN 
$ SINDEP SSLOCAL 

used in type....: SABSHDR $FILEINF0 $ INFOITEM 

SNAMEEXT SNAMEEXTENV SPIPEGENPT 

SSFENT SSFITABLE SUABSECTOR 

POINTED TO in...: SFILESPK 

TYPDEF SNAMET [12] CHAR; 

NOTE: Blank fill with SWSBLANK character 
or normal blanks. 
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$NODEFLAGS 


TYPE 


$NODEFLAGS 


Node Definition Flags in $INF0 

entered.: 82 Jul 01 UPDATED.: 84 Aug 08 

INCLUDE FILE....: DSRMSGEN 
USED in TYPE....: $ INFO ITEM 

TYPDEF SNODEFLAGS 

SET($INFOFF, SINFTXER, SINFCONG, JINFCFU, 
$ INFIFS, $INFFMA); 


$NQDQITEM type $NQDQITEM 

NQDQ List Item 

entered.: 82 Jul 01 UPDATED.: 83 Feb 01 

INCLUDE FILE_: D$UFRNQDQ 

used in type. SNQDQMSG array 

TYPDEF SNQDQITEM [6] BYTE; 


$NQDQMSG 


$NQDQMSG 


NQDQ Message 

entered. 82 Jul 01 UPDATED.: 82 Dec 01 

include file....: DSUFRNQDQ 

used by function: $NQDQBLD $NQDQENL SNQDQENQ 


TYPDEF SNQDQMSG STRUCT { 

SNQDQCNT BYTE; Item count 
SNQDQLIST [0] SNQDQITEM; Item list 
}; 
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$NQDQSTAT 


TYPE 


$NQDQSTAT 


NQDQ Statistics 

entered .: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE _: D$UFRNQDQ 

USED by FUNCTION: $NQDQSTA 

TYPDEF SNQDQSTAT STRUCT { NQDQ Statistics 
CTNQACT UNSIGNED; Number of active enqueues 
CTNQUAIT UNSIGNED; Nmbr of enqueues currently 
waiting 

CTREQPND UNSIGNED; Number of requests pending 
CTFREECB UNSIGNED; Nmbr of free control blocks 
(this is also the number of 
additional users that could 
logon) 

CTINACT UNSIGNED; Number of inactive users 

(users w/ no active enqueue 
and no pending request) 
CTFRERLE UNSIGNED; Nmbr of free request list 
elements 

CTUSERLE UNSIGNED; Nmbr of used request list 
elements 

CTFREBUF UNSIGNED; Free buffers 
CTUSERS UNSIGNED; Current number of logged on 
users 

CTUSEBUF UNSIGNED; Number of used buffers 

CNTENQ LONG; Number of enqueue requests 

CNTDEQ LONG; Number of dequeue requests 

CNTLOGN LONG; Number of logon requests 

CNTLOGF LONG; Number of logoff requests 

CNTINV LONG; Number of invalid requests 

CNTTO LONG; Number of timed out enqueues 

}; 
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$OPENPT 


TYPE 


$OPENPT 


Open Parameter Table 

entered. : 82 Jul 01 UPDATED.: 84 Aug 08 

INCLUDE FILE_; DSRMS 

USED by function: SAOPEN $D0PEN $ENVPEEL SENVPLOP 

$IOPEN $IPREP $NQDQBLD SOPEN 

SOPENENV SRENENV SREOPEN STXOPEN 

STXOPENP JTXPREP $TXPREPP SWFOPEN 

$WF0PENP $WFPREP SWFPREPP 

USED in TYPE....: $ OP ENPTS 

I,...means field requires Input value 
0,...means field returns Output value 
B,...means Input required. Output returned 

TYPDEF SOPENPT STRUCT { Open Parameter Table 
$OTPFDB A SPFDB; I,Pointer to PFDB, 

SOTENV A CHAR; I-$0PENENV, B-SOPEN and others. I 

Pointer to user's ENV data area j 

(or entry in UET for $0PEN UFRs only) j 
Five String Entry (each terminated with SENVTERM): 

1. Symbolic Network Name 

2. Symbolic Node Name 

3. Symbolic Resource Name 

4. HSI 

5. List of up to 20 Packed Passwords 

Same requirement as SENVT.DATA ($FILEKEY) | 

SOTFILE A SNAMEEXT; I,Pointer to file name and ext 
SOTKIND 0,Resource Kind ( SDK...), see Note 1 

ENUM($DKWS,$DKDISK,$DKPIPE,$DKPRINT, 

SDKCASS,SDKMAGT,SDKCOMM,SDKTIMER); 

ENUMV(8,SDKCARDR,SDKCARDP,SDKPTR,SDKPTP, 

SDK883M,SDK863M,JDKSMPLR,SDKRIM) 
ENUMV(16,$DKFAX) 


continued 
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SOTSUBK BYTE; 0 , Resource sub-kind( $SK..)see Note 1 
SOTFEOFB BYTE; 0,End-of-File byte pointer 
SOTFLEN $LSN; B,End-of-File location LSN, 
tOTFINC UNSIGNED; B,Space increment in sectors, 

SOTFMT B,Format ( $FFMT...) 

Must be set to create. 

ENUM($FFMTSYS,$FFMTTMP,$FFMTTXT,$FFMTISM, 

$FFMTL55,$FFMTRAC,$FFMTDBC); 

ENUMV( 7,SFFMTBAS,$FFMTMAC,$FFMTWPS,$FFMTJOB, 
$FFMTBIN,$FFMTUTX,$FFMTMFD) 

ENUMV(14,SFFMTUPF,$FFMTWPF,$FFMTAIM,SFFMTXFD) | 

ENUMV(20,$FFMTL66,$FFMTL80) 

DEFINE($FFMTRPM,32) 

ENUMV(JFFMTRPM,SFFMTR55,SFFMTR66,$FFMTR80) 

ENUMV(40,JFFMTPTR) 

SOTTIME $TIME; O.Time of creation in binary 
SOTSQL BYTE; B,Security level;0 to SSQLMAX ($SQL...) 
SOTCODE BYTE; 0,Access code (JACCODES) 
or file created flag 

SOTONOS BYTE; 0,Optimum number of sectors to do; nbr | 
of sectors in a track ($SECW0,$SECR0) | 
SOTFID UNSIGNED; O.File identification FDT-PCN 
SOTRID BYTE; 0,Resource identifier ARV serial nbr 

SOTNID UNSIGNED; ? 

}; 


Note 1: Value returned by SOPENENV function if open is 
successful or if Error condition is other than 
$ECUMAV,$ECSI021, or $ECSI022. 

Note : Refer to SPRM Vol.4 Sec. 2.2.1 
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$OPENPTS 


TYPE 


$OPENPTS 


Special SOPENENV in $OMCHECK,$OMREPAR Modes 


entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: D$RMS I 0 


USED by function: SOPENENV (in SOMCHECK, SOMREPAR Modes) 

I,...means function requires Input value 
0 ,... means function returns Output value 

TYPDEF SOPENPTS UNION { 

$0 $0PENPT; 

STRUCT { 

SOTXl [9] BYTE; 

(OTHFDLSN BYTE; 0,LSN of first HFD sector (9) 
SOTHFDLGT UNSIGNED; 0,Nbr hash file directry sect 
SOTIDLSN BYTE; 0,Disk LSN of identification sector 
}; 

STRUCT TAPES 

$0TX2 [8] BYTE; 

SOTRTRY BYTE; I,Maximum number of retries 
SOTBLKL UNSIGNED; 0,Maximum block length 
}; 

}; 
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$OPTION 


$OPTION 


TYPE 

SSCANOS Option Specification 

82 Jul 01 UPDATED.: 83 Apr 12 

INCLUDE FILE....: DSRMS 
USED by FUNCTION: SSCANOS 

TYPDEF SOPTION STRUCT { 

SOPTSON $S0NT ; Option field name 
SOPTFLG Flags: Set by SSCANOS 

or SOPTFQOK initialized by code. 

SET(SOPTFDEF,SOPTFVAL,SOPTFQOK); 

SOPTVAL BYTE; Option value length 

Must be initialized to SOPTVCLR. 
SSCANOS sets to SOPTVSET if the 
option is found. 

ENUMV(254, SOPTVSET, SOPTVCLR) 

SOPTMAX BYTE; Option value maximum length 

(Initialize to 0 unless other 
value is applicable) 

SOPTSTR [0] CHAR; Option value string. 

}; Should be GLOBAL variables 

for future to guarantee consecutive memory. 

PROGRAM EXAMPLE: 

Use of option scanner: 

One or more SOPTIONs must be followed by SOPTTAIL. 


opt 1 SOPTION 
opt2 SOPTION 
opt2s [6] CHAR 
optt SOPTTAIL 


= { 'HELP \ 0, SOPTVCLR, 0 }; 
= { 'CODE 0, SOPTVCLR, 6 }; 

— 1 l . 

SOPTTERM, 0 }; 


IF $SCANOS(&optl) && DSCFLAG THEN SERMSG(); 


$OPTTAIL type SOPTTAIL 

SSCANOS SOPTION List Terminator 

entered .: 82 Jul 01 UPDATED.: 83 Jul 01 

INCLUDE FILE-: DSRMS 

USED in TYPE....: (follows 'n* SOPTION's) 

TYPDEF SOPTTAIL STRUCT { 

SSOPTTERM BYTE; SOPTTERM is defined 0377 
SOPTTOT BYTE; Option global total count 
}; 
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$PABENTRY 


TYPE 


$PABENTRY 


Relocatable Program ID Sector PAB Entry 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: D$RMSSTRUCT 
USED in TYPE....: SRELPID 


TYPDEF SPABENTRY STRUCT { 

Program address block entry 

SPABTBFLG SPABFLAGS; PAB Flags ( SPAB_) 

SPABTBNAM [8] CHAR; PAB name 
SPABTBADR UNSIGNED; PAB address 
SPABTBLGT UNSIGNED; PAB length 
}; 


$PABFLAGS type $PABFLAGS 

Relocatable Program ID Sector PAB Flags 

entered.: 82 Jul 01 UPDATED.: 84 Aug 08 

include file....: DSRMSSTRUCT 
USED in TYPE....: SPABENTRY 

TYPDEF SPABFLAGS 

SET($PABF000,$PABF001,$PABFDATA,$PABFC0MN, | 
$PABFPS,$PABFTP,$PABFREL,$PABASS); 

NOTE: Refer to the LINK Utility in the RMS User's | 
Guide. 
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$PACKPW 


TYPE 


$PACKPW 


Packed Password 


ENTERED. 

INCLUDE FILE_ 

USED by FUNCTION 
USED in TYPE.... 


82 Jul 01 UPDATED.: 82 Dec 01 
D$RMS UPDATED.: 83 Jun 09 

$GETPASS $PAKPW SUNPAKPW 
SFILEKEY 


TYPDEF $PACKPH [6] BYTE; 


Passwords are stored in Environment Data after packing; each 
8 character password is packed into 6 bytes in the following 
fashion; 040 is subtracted from each byte; the two high order 
bits are then discarded. The eight characters each now have 
six bits; these 48 bits are now taken as 6 bytes. EXAMPLE ; 


ASCII 

C 

0 

D 

E 

W 

0 

R 

D 

OCTAL 

0103 

0117 

0104 

0105 

0127 

01 1 7 

0122 

0104 

- 040 

043 

057 

044 

045 

067 

057 

062 

044 

ND 077 

043 

057 

044 

045 

067 

057 

062 

044 

b i n 

100011 

101111 

100100 

100101 

110111 

101111 

1 10010 

100100 


pack 10001110 11111001 00100101 11011110 11111100 10100100 

octal 0216 0371 045 0336 0374 0244 


Constraint; the first two characters must not compress into 
all ones (0377) as this is interpreted as the end of available 
passwords. This seems to work out that any character except for 
(0137; underbar) is okay for the first character of password. 
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PCR TYPE PCR 

Program Control Region (externally defined) 

ENTERED.: 82 Jul 01 UPDATED.: 84 Jul 01 

INCLUDE FILE _: D$PCR 


with exceptions (*): DSRMS defines four locations. 

UFRCDEFS/TXT defines six 
locations not defined in DASL. 


NOTE: 

The PCR is the area at the logical beginning of 
memory allocated to each task operating in any RMS 
controlled processor. All locations are extenally 
defined by RMS so the DASL definition for each is of 
the form: EXTERN name type; 

Flag values are DEFINED in the DASL file DSPCR. 

( The items which occur only in the RMS source 
file UFRCDEFS/TXT would also be defined as EXTERN 
if they had been implemented in DASL). 

The word EXTERN has not been printed here due to 
space limits. Instead, the relative memory address in 
octal has been provided. The items have been arranged 
in order of memory location with the lowest location 
first. 

The memory locations may in some cases change 
with RMS updates. Remember not to reference these 
locations by number, but by Location Name. 

(Flags should also be referenced by Name.) 

(Some documentation puts the highest location 

first and refers to this as the TOP of the PCR.) 
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First of FIXED PCR Region and PCR Sector Definitions 


000000 SPCRSECF [0] BYTE; First byte of PCR sector 
002000 SPCRMIND [0] BYTE; Default bottom UET/CMD 

stack address 

007207 SPCRFOF [0] BYTE; First byte of fixed PCR area 
SPCRCIF2 UNSIGNED; 2nd Command Interpreter 
Flags 

SPCRF2AW 00001 Task Running under Attached 
Workstation Control 

Cursor Positions for Control of Main Screen Window 


007211 SPCRCVVL BYTE; Current Window Lower Vertical 

007212 SPCRCUVU BYTE; Current Window Upper Vertical 

007213 SPCRCVHR BYTE; Current Window Right Horizontal 

007214 tPCRCWHL BYTE; Current Window Left Horizontal 

See values $WSLC, SWSRC, SWSBL 

Command Interpreter State Control Area 
Fields contain the LSNs of the Folowing Members 


007215 SPCRCMDM $LNAMET; Member Name being executed, 

or spaces 

007225 SPCRMLRC UNSIGNED; Check bits for Control Area 

007227 SPCRFVUP UNSIGNED; Locked FAV for User Program 

007231 SPCRFVCI UNSIGNED; Locked FAV for CMD INT 

007233 SPCRSTTE UNSIGNED; Current Command Interpreter 

State Flags (pointer to LSN) 


007235 $PCRMMSG UNSIGNED 
007237 tPCRMLGF UNSIGNED 
007241 SPCRMRNL UNSIGNED 
007243 SPCRMNXL UNSIGNED 
007245 SPCRMMAL UNSIGNED 
007247 SPCRMRET UNSIGNED 
007251 $ PCRMLGN UNSIGNED 


"MESSAGE" membr for CMD INT 
"LOGOFF" 

"RUNLINE" 

"NEXTLINE" 

"MAIL" 

"RETURN" 

"LOGON" 
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Batched Job Facility Control Information 


continued 


007253 SPCRBJCM SLNAMET; BJF "WAIT" module membr name 
007263 SPCRBJCN $NAMEEXT;BJF "WAIT" module name/ext 
007303 SPCRBJCE $ENVN; BJF "WAIT" module extension 

Partition Memory Allocation Control Flags 

007313 SPCRPSKA BYTE; Current number of PSKs allocatd 
007314 SPCRPSKM BYTE; Maximum number of PSKs allowed 


Command Interpreter Flags 


007315 tPCRCMDF SETW(. 


SPCRDFNH 

00001 

SPCRDFEH 

00002 

SPCRDFSO 

00004 

SPCRDFNW 

00010 

JPCRDFFK 

00020 

SPCRDFCF 

00040 

SPCRDFNC 

00100 

$PCRDFBJ 

00400 

JPCRDFWW 

01000 

SPCRDFWI 

02000 

SPCRDFMC 

04000 

$PCRDFNS 

010000 

SPCRDFCW 

020000 

$PCRDFML 

040000 

$PCRDF2F 

0100000 


.); Command interpreter flags 
Inhibit signon/heading display 
Display all heading records 
CMD INT entered from signon prgm 
No workstation available 
Abort GETLINES, KEY INS on func key 
Reset char font and translate table 
No STOP bar - clears HELP window 
Batched job facility is active 
Standard window was active 
Standard window is active 
Command Line was Menu-Generated 
No STOP bar - does not clear 
window 

Current Window data valid 

Menu line exists; SPCRCLEL points 

to New Line 

Secondary Cl Flags Available 


I* 

i* 


Printer Information 


007317 SPCRCPFL BYTE; Current printer form length 
SPTRFLDV 66 Printer Form Length DEFAULT Value 
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Chaining Information 


007320 SPCRCHNF SET(_); Chaining flags 

JPCRCFAC 000001 Chaining active 

JPCRCFCR 000002 Next command line ready 

SPCRCFFO 000004 Chain file open 

JPCRCFNA 000010 "No Abort" on $ ERROR exit 

JPCRCFRS 000020 CHAIN File has been restarted 

007321 tPCRCHNV [3] BYTE; Address of entry vector; 

CHAIN routine 

007324 tPCRCHND A SNAMEEXTENV; Pointer to CHAIN CMD 

filename/ext;env 


Logging Information 

007326 SPCRLOGF SET( Logging flag 
SPCRLFAC 000001 Logging active 

SPCRLFSP 000002 Logging suspended 

SPCRLFEO 000004 Log only error messages 
$PCRLFNI 000010 Log note display inhibited 

SPCRLFFO 000020 Log file open 

SPCRLFHR 000040 HD/RU before each logged message 

007327 SPCRLOGV [3] BYTE; Address of entry vector; 

LOG routine 

007332 SPCRLOGD A SNAMEEXTENV; Pointer to LOG CMD 

Filename/Ext:Env 
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. continued 

File-In-Error Informaton Returned by SGETSFI 


007334 SPCRFIEI [0] BYTE; SSFITABLE Start of area 
Note: Following not in DASL 
" SPCREHSI File HSI *UFRCDEFS 


007374 SPCRENAM File name *UFRCDEFS 
007410 SPCREEXT File extension *UFRCDEFS 
007414 SPCRERES Resource containing file *UFRCDEFS 
007430 SPCRENET Net containing node *UFRCDEFS 
007444 SPCRENOD Node containing resource *UFRCDEFS 

ERROR Information 


007460 SPCRERRF SET(...); Command Interpreter 

$ERR0R reason flags 

$PCREFBC 000001 SERRC (BC reg) error code exists 
SPCREFRF 000002 Recursion flag 

SPCREFFF 000004 File in error flag 

SPCREFNN 000010 Net/node info present 

SPCREFTS 000020 Error Message is on top of 
Command Stack 

$PCREFCI 000040 Error Message is in Cl Message 

Member 


007461 tPCRCLEL A CHAR; Command line syntax error 

location 

007463 SPCRSTAT [38] BYTE; State storage area 

007531 SPCRABTF SET(...); Abort reason figs * DSRMS 
SPCRAFGA 000001 General abort * D$RMS 


COMMAND File NAME/EXT;ENV 

007532 SPCRCMDN SNAMEEXT; Filename/Ext of 

command executing * DSRMS 
007552 (PCRCMDE SENVN; Environment name of 

command executing * DSRMS 
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KEYIN Translate Table 


007562 tPCRKXT [128] CHAR; Keyboard translate table; 

this workstation 


"YES" and "NO" First Letters 


007762 SPCRNO CHAR; 
007763 fPCRYES CHAR; 

PCR Region Pointers 
007764 SPCR1STP a BYTE; 
SCLOTOPP a BYTE; 

007766 SCL01STP a BYTE; 

SUETTOPP a BYTE; 

007770 fUETPTR A $£NVT; 

007772 SCSTOPP A BYTE; 
SUET1STP a BYTE; 

007774 SCS1STP A BYTE; 

SULSTOPP a BYTE; 

007776 SPCRMINP a BYTE; 

010000 SPCRTOP [0] BYTE; 
SULS1ST [0] BYTE; 


DEFINE($N0, ’N 1 ) 

DEFINE($YES, 'Y') 


Address of first byte of 
PCR fixed data area 
Above top of CHAIN/LOG 
overlays 

Address of first byte in 
CHAIN/LOG overlays 
Above top of UET area 

Address of first UET entry 
(linked list head) 

Above top of command stack 

Address of first byte in 

user ENV table 

Address of first byte in 

command stack 

Above top of user logical 

space 

Minimum usable PCR location 

First byte after top of PCR 
First byte of user logical 
address space 


- this is where you may put your program. 
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$PFDB 


TYPE 


$PFDB 


Physical File Descriptor Block 


entered.: 82 Jul 01 UPDATED.: 83 Apr 12 

INCLUDE FILE....: DSRMS 


USED by FUNCTION: $ CLOS E 

SDONATFV 

$$ FILEPCU 

$F0RMAT 

SLBADD 

SLBDEL 

SLBFIND 

SLBFRES 

SLBGTLSN 

SLOAD 

SLOCKFAV 

SLOCKRIM 

SMAP4K 

SMSGCGET 

SPIPEUSE 

$RUN 

JSRUN 

SSCANCFG 

SSECCHK 

SSECEOF 

$SECR 

$ SECRO 

SSECW 

SSECWAIT 

$SECW0 

SSINDEP 

$ STOP 10 


STIMER 

SUNLKRIM 



used in type....: $ AC B 2 t i me s $ DC B 

$ ICB 

SFCBDIR 


$FCBDIRPRT SFCBDOVR $FCBPRT 
pointed to in...: $DCB 2 times SOPENPT 

SRLPARAM SWFCB 2 times 


TYPDEF $PFDB STRUCT { 

SPFVID UNSIGNED; 16-bit FAV Identification 
Returned by OPEN function 
(Undefined for WORKSTATION) 

(Only field required for TIMER) 

UNION { 

SPCLSN $LSN; Logical Sector Number 

DISK: Set to first sector to read or write. 
STRUCT { 

UNION { 

SPBLKL UNSIGNED; Blk lgth;bytes:PIPE,TAPE 
Read: returns number of bytes read. 
If SSECERR bit set, read incomplete. 
Write: Set to number to be written. 
(Returns number of bytes transfered.) 
STRUCT { 

SPSYSCODE BYTE; DIRECT RIM system code 
SPTASKID BYTE; DIRECT RIM task ID 
}; 

}; 


continued 
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UNION { 

SPTIMER BYTE; Timeout count in seconds: 

Actual timeout varies -0 +1 secs. 
SFOREVER waits until write occurs. 
PIPE,DIRECT RIM 

fPSUBF BYTE; Sub-functon code: TAPE 

Read Codes: SPTFREAD,SPTFRDRV, 

}; SPTFFSPB,SPTFBSPB,$PTFFSPF, 

$PTFBSPF,$PTFRWND,$PTFULOD 
}; Write Codes: SPTFWRIT,$PTFWRTM, 

Sptferas 

}; 7-Track: JPSUFCNV used with 

$PTFREAD,$PTFRDRV,and SPTFWRIT 
to un-block or block data. 


SPTODO BYTE; Number of 256-byte sectors to do 
PIPE: Must be >= SPBLKL / 256 
SPDONE BYTE; Number of 256-byte sectors done 
SPMXBF BYTE; Maximum number of buffers on list 
$PBUFL [1] SPFDBBUF; Start of buffer list 

Must list buffers whose total 
size is greater than SPTODO. 
See DSBUFn's and SMAP4K. 


$PFDBBUF type $PFDBBUF 

PFDB Buffer List Entry 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: DSRMS 

used in type _: SACB 2 arrays SDCB 1 array 

SICB 1 array SFCBDIR SFCBDIRPRT 

SFCBDOVR SFCBPRT $ PFDB 


TYPDEF SPFDBBUF STRUCT { 

PSK BYTE; Physical Mode:PSK 

Logical Mode: SNOPSK (or -1) 

PAGE BYTE; Physical Mode: Page number (0-15) 

Logical Mode: Page (0-255) in user's 
logical address space 
SYS UNSIGNED; System driver usage 
}; 
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$PIPEGENPT 


TYPE 


$PIPEGENPT 


Pipe Generation Parameter Table 


entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: DSRMSIO 


USED by FUNCTION: $ P I P EG EN 

TYPDEF $PIPEGENPT STRUCT { 

SPIPENAM $NAMET ; Name of Pipe 
SPIPEIAC SACCODES; Initial access code 
SPIPEKEY JFILEKEYS; Keys 
$PIPETERH BYTE; Key list terminator: 

}; ($ENVTERM) 


$RELCODE type $RELCODE 

Relocatable Sector Type Codes 


entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: DSRMSSTRUCT 
USED in TYPE....: $LI BSECTOR 


TYPDEF SRELCODE BYTE; 

ENUMV(0201,$RCPID,$RC0BJ,$RCEXDEF, SRCEXREF, 
$RCXFER,$RCEPN,$RCLINEN) 
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JiRELEPN 


TYPE 


$RELEPN 


Reclocatable Entry Point Member Entry 

ENTERED.: 82 Jul 01 UPDATED.: 82 Dec 01 

include file....: DSRMSSTRUCT 
USED in TYPE_: $RELEPNS 

TYPDEF SRELEPN UNION { 

SRELEPNMBR STRUCT { New program entry 

SRELEPNMFLG CHAR; New program flag 
SRELEPNMSKP [5] BYTE; 

SRELEPNHLSN UNSIGNED; Program LSN 
}; 

SRELEPNAME [8] CHAR; Normal entry point name 


$RELEPNS type $RELEPNS 

Relocatable Entry Point Member Sector 

entered. 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: DSRMSSTRUCT 
USED in TYPE_: $L I B S ECTOR 

TYPDEF SRELEPNS [31] SRELEPN; 
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SRELLINE 


TYPE 


SRELLINE 


Relocatable DEBUG Line Numbers Sector 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE. DSRMSSTRUCT 

USED In TYPE_: $ L I BS ECTO R 

TYPDEF SRELLINE [84] SRELLNENT; 


SRELLNENT type SRELLNENT 

Relocatable DEBUG Line Number Entry 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: DSRMSSTRUCT 

USED in TYPE. SRELLINE 

TYPDEF SRELLNENT STRUCT { 

SRLNEPAB BYTE; Line number PAB 
SRLNEOFFS UNSIGNED; Line number offset 
}; 

SRELOBJ type SRELOBJ 


Relocatable Object Code Sector 


entered.= 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: DSRMSSTRUCT 
USED in TYPE_: SLIBSECT0R 

TYPDEF SRELOBJ [255] BYTE; 
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SRELPID 


TYPE 


$RELPID 


Relocatable Program ID Sector 

entered. : 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_ : D$RMSSTRUCT 

USED in TYPE_ : $L I BSECTOR 

TYPDEF SRELPID STRUCT { 

SRPDXDPTR UNSIGNED; External definition pointer 
SRPDPGMNAM SLNAMET; Program name 
SRPDPABTABLE [16] SPABENTRY; PAB table 
}; 

$RELXDEF type $RELXDEF 

Relocatable External Definition Sector 

entered. : 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: D$RMSSTRUCT 

USED in TYPE_: SLIBSECTOR 

TYPDEF SRELXDEF [22] SRELXDENT; 

$RELXDENT type SRELXDENT 

Relocatable External Definition Entry 

entered .: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE. D$RMSSTRUCT 

USED in TYPE s SRELXDEF 

TYPDEF SRELXDENT STRUCT { 

SRXDENAME [8] CHAR; name 
SRXDEPAB BYTE; PAB 
SRXDEVAL UNSIGNED; value 
}; 
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$RELXFER 


TYPE 


$RELXFER 


Relocatable Starting Address Sector 


entered., 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: DSRMSSTRUCT 

USED in TYPE_: $LIBSECT0R 


TYPDEF SRELXFER STRUCT { 

SRELXFERPAB BYTE; PAB 
SRELXFEROFFS UNSIGNED; Offset 
}; 

$RELXREF type $RELXREF 

Relocatable External Reference Entry 


entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: DSRMSSTRUCT 
USED in TYPE. $L IBSECTOR 

TYPDEF SRELXREF [31] SRELXRENT; 

$RELXRENT type $RELXRENT 


Relocatable External Reference Entry 

entered. 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: DSRMSSTRUCT 
USED in TYPE....: SRELXREF 

TYPDEF SRELXRENT UNION { 

SRELXREXNAM [8] CHAR; name 

SRELXRFWD STRUCT { Forward reference definitn 
SRELFNDFLAG BYTE; forward reference flag 
SRELFWPAB BYTE; PAB 
SRELFNDOFFS UNSIGNED; Offset 
SRELFWDSKIP [4] BYTE; 

}; 
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$RLDEF 


TYPE 


$RLDEF 


Relocatable Loader Definition Structure 


entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE _: DSUFRRLD 

pointed to in...: SRLPARAM 2 times 


TYPDEF SRLDEF STRUCT { 
SRLDNAME SRLNAME; Name 
SRLDVAL UNSIGNED; Value 
}; 


$RLFLAGS type $RLFLAGS 

Relocatable Loader Flags 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

include file_: DSUFRRLD 

USED in TYPE....: SRLPARAM 


TYPDEF SRLFLAGS 

SET($RLFNSVD,$RLFTOPD,$RLFEXDO, 
$RLFRFUL,$RLFUNDF); 
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$RLNAME 


TYPE 


$RLNAME 


Relocatable Loader Name Type 

entered.: 82 Jul 01 UPDATED.: 84 Aug 08 

INCLUDE FILE_: D$UFRRLD 

USED by FUNCTION: SLOADREL 
USED in TYPE....: SRLDEF 

TYPDEF (RLNAME [8] CHAR; 


$RLPARAM type $RLPARAM 

Relocatable Loader Parameters 

entered. : 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE _: D$UFRRLD 

USED by FUNCTION; SLOADREL 

TYPDEF SRLPARAM STRUCT { 

$RLLSN UNSIGNED; Member logical sector number 
SRLADDR A BYTE; Starting load address 
SRLLIM A BYTE; Limiting load address 
SRLPFDB A SPFDB; Physical file descriptor blk adr 
SRLDEFAD A SRLDEF; User definition table address 
SRLDLIM A SRLDEF; User definition table limit adr 
fRLREFAD A SRLREF; Usr reference work area address 
SRLRLIM A SRLREF; Limit adr of reference wrk area 
SRLUDRTN A SRLUDRTNF; User defined symbol routine 
$RLUMEMA A SRLUMEMAF; User mem allocation routine 
SRLFLAG SRLFLAGS; Load control flag 
}; 
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$RLREF 


TYPE 


$RLREF 


Relocatable Loader Reference Work Area 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: DSUFRRLD 
pointed to in...: $RLPARAM 2 times 

TYPDEF SRLREF UNSIGNED; 


$RLUDRTNF TYP e $RLUDRTNF 

Relocatable Loader User Routine Types 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE. DSUFRRLD 

POINTED TO in...: SRLPARAM 

TYPDEF fRLUDRTNF ( ); 


$RLUMEMAF TY pe $RLUMEMAF 

Relocatable Loader User Routine Types 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE. DSUFRRLD 

POINTED TO in...: SRLPARAM 

TYPDEF SRLUMEMAF (); 
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$RSRCFLAGS 


TYPE 


$RSRCFLAGS 


$INFO Resource Status Flags 

ENTERED .: 82 Jul 01 UPDATED.: 83 Jul 23 

INCLUDE FILE....: D$RMSGEN 
USED in TYPE....: $ INFO ITEM 

TYPDEF SRSRCFLAGS 

SET($IRFOFF, $IRF0CP, SIRFWRP, SIRFCHK, 

$IRFSTP, $IRFSPC, $IRF6, $IRFBSO); 


$SCF MSCODES type $SCFMSCODES 

FAR Exception Exit Codes 

ENTERED .= 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: D$FAR 

TYPDEF (SCFMSCODES 

ENUM(SXCFMSOO,SXCFMS01,$XCFMS02,SXCFMS03, 
$XCFMS04,$XCFMS05,$XCFMS06,$XCFMS07); 

Exception conditions 

SXCFMS01 File position out of range 
$XCFMS02 No such record 

SXCFMS03 ISAM key not found 

$XCFMS04 ISAM duplicate key 

$XCFMS05 Record already exists 

$XCFMS06 No current record exists 

SXCFMS07 File positioned to EOF 
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$SECSTAT 


TYPE 


$SECSTAT 


Block I/O Status Control 

entered.: 82 Jul 01 UPDATED.: 84 Aug 08 

INCLUDE FILE_: D$ RMS I 0 

USED by FUNCTION: $S ECCHK SSECWAIT 

TYPDEF (SECSTAT 

SET($SECWP, $SECACT, $SECERR, SSECTMD, 
SSECFLOK, $SECST0P, SSECSS, $SECBSD); 


$SECURETBL tvpe $SECURETBL 

$SECURE Parameter Table 

entered.: 82 Jul 01 UPDATED.: 84 Aug 08 

INCLUDE FILE....: D$RMSI0 

USED by FUNCTION: $ SECURE 

TYPDEF SSECURETBL STRUCT { 

SPFVID UNSIGNED; 16-bit FAV identifier; 

initialized from PFDB |* 

tSSFINC UNSIGNED; File increment 
UNION { 

STRUCT { JSSGET, $SSPUT modes 

SSSFSL BYTE; File security level 

0 to SSQLMAX ($ SQL...) 

SSSFIAC SACCODES; File initial access code 
SSSKEYS SFILEKEYS ; File access keys and codes |* 
SSSX [2] BYTE; 

}; 

STRUCT { $SSGETX, SSSPUTX modes 

SSSFFMT BYTE; File format code ($FFMT...) 

SSSFCT STIME ; File creation time 
SSSSEGM BYTE; Number of segments in file 
SSSALLO $LSN; LSN of last allocated sector 
}; 

}; 

}; 
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$SETTIMEP 


TYPE 


$SETTIMEP 


SSETIME Parameter Table 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: D$RMSGEN 
USED by FUNCTION: $ S ET I ME 

TYPDEF SSETTIMEP STRUCT { 

$SETDIR BYTE; Clock adjustment direction 

(2=up, 0=down) 

SSETADJ [3] BYTE; Clock adjustment in seeds pr day 
SSETSEC $TIME; Time in seeds since begning of 1901 
}; 


$SFENT tv pe $SFENT 

Symbolic File Table 

entered. 82 Jul 01 UPDATED.: 82 Dec 01 

include file. D$RMS 

USED by FUNCTION: $ S C AN F S 
USED in TYPE_: JFILESPK 


TYPDEF tSFENT STRUCT { 

SSFTSFN $SFNT; Symbolic field name 

(like 'IN' 'OUT 1 'PRT' etc) 
SSFTNAM $NAMET; File name 
S5FTEXT $EXTT; File extension 
SSFTENV $ENVN; File environment 
}; 
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$SFITABLE 


TYPE 


$SFITABLE 


SGETSFI Information 


entered.: 82 Jul 01 UPDATED.: 83 Jul 01 

INCLUDE FILE....: DSRMSIO 
POINTED TO in...: $ F I L ESTBL 
USED in TYPE....: $PCRFIEI 


TYPDEF tSFITABLE STRUCT { 

SGSFIHSI $HSI; File HSI 

SGSFINAM $NAMET; File name 

SGSFIEXT SEXTT; File extension 

$GSFIRES $NAMET; Resource containing the file 

SGSFINET $NAMET; Network containing the node 

$GSFINOD SNAMET; Node containg the resource 


}; 

$SFNT type $SFNT 

Symbolic File Name 

entered.: 82 Dec 01 UPDATED.: 84 Aug 08 

INCLUDE FILE. D$RMS 

USED in TYPE....: $SFENT 

TYPDEF SSFNT [8] CHAR; like 'IN', 'OUT', 'PRT’, etc. | 

$SONT type $SONT 


Symbolic Option Field Name 
entered.: 82 Dec 01 UPDATED.: 84 Aug 08 

INCLUDE FILE_: D$RMS 

USED in TYPE....: $ OPT I ON 

TYPDEF SSONT [8] CHAR; like 'PRINT', 'INFO', 'SORT', | 

etc. 
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$STARTADR 


TYPE 


$STARTADR 


Starting Address Type 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE....: D$RMS 

USED by function: $L0AD $L0ADREL $SLOCAL $TRAPUMV 

USED i n TYPE. . . . : $ INTS 

TYPDEF SSTARTADR * DSCALLF; 


$SYSTIME type $SYSTIME 

System Time 

entered.: 82 Jul 01 UPDATED.: 83 Jul 29 

include file_: DSRMSGEN 

USED by FUNCTION: $GET I ME 

TYPDEF SSYSTIME STRUCT { 

SECONDS $TIME; Seconds since beginning of 1901 
(MSB first, LSB last) 

MILLISECONDS BYTE; Eight millisecond counter: 

}; values between (256-125) and (256-1) 
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$SYSTINFO 


$SYSTINFO 


TYPE 

System Time Information 

entered.: 83 Jul 23 UPDATED.: 84 Aug 08 

INCLUDE FILE....: D$RMSGEN 

used by function: $GETIME (in alt. S.C.) I* 

SSETIME (in alt. S.C.) I* 

TYPDEF SSYSTINFO STRUCT { 

$TMUTC STIME; Universal Co-ordinated Time 
$TMTZ STIME; Time Zone Offset from UTC 
STMADJDR BYTE; Clock Adjustment Direction 
DEFINE($TMADJDN,0)Ad just Clock Down 
DEFINE($TMADJUP,2 )Adjust Clock Up 
STMADJ [3] BYTE; Clock Adj'ment in Seconds/Day |* 
STMDSTOS BYTE; DST Adjustment in Hours 
STMDTSTR SDSTINFQ; DST Start Table 
STMDTEND SDSTINFO; DST End Table 
STM8MS BYTE; Eight Millisecond Counter 


}; 

$TIME type $TIME 

Time in Seconds Since Beginning of 1901 

entered.: 82 Jul 01 UPDATED.: 82 Dec 01 

include file....: D$RMS 
USED by FUNCTION: S CVSTI ME JDATETIM 
used in TYPE....: $INFOITEM $ OP ENPT SSECURETBL 
$SYSTIME SSYSTINFO SUABSECTOR 

TYPDEF STIME [5] BYTE; 

ULONG type ULONG 


24 Bit Number Structure 


entered. 82 Jul 01 UPDATED.: 84 Aug 08 

INCLUDE FILE _: D$ INC 

USED in type....: $ INFOITEM $LSN SSYSTINFO DSGET24 

TYPDEF ULONG STRUCT { 

LSI* UNSIGNED; 

MSB BYTE; 

}; 
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$UABSECTOR 


TYPE 


$UABSECTOR 


User Abend Header Sector Format 

entered .: 83 Apr 02 UPDATED.: 83 Jul 23 

INCLUDE FILE _: DSRMSSTRUCT 

TYPDEF SUABSECTOR UNION { 

STRUCT { LSN 0 

SUABNAME SNAMET; User task name 

SUABTIME STIME; Time of abort 

SUABERR BYTE; Error control 

SUABPROC BYTE; Processor type 

SUABNVER [5] BYTE; Nucleus version 

SUABSTKN BYTE; Nbr of level in user stack 

SUABSTBN BYTE; Nbr of entries in usr sectr tble 

tUABSTAT SET User state 

(SUABDUAL,SUABPWSX,SUABPWSA, 

SUABSHAR,SUABLCL); 

SUABKKSS UNSIGNED; Keyboard key seq trap addr 
tUABDKSS UNSIGNED; Display key seq trap adddr 
SUABFKS UNSIGNED; Function key trap addr 
tUABUMVS UNSIGNED; User mode violatn trap addr 
SUABAKSS UNSIGNED; Abort key seq trap addr 
$UABLKSS UNSIGNED; Logoff key seq trap addr 

SUABMMIN BYTE; Minimum memory allocation 

SUABMCUR BYTE; Current memory allocation 

SUABMMAX BYTE; Maximum memory allocation 

tUABPCRK BYTE; PCR Sector PSK 
fUABPWSK BYTE; PWS Sector PSK 
SUABDAD SNAMET; Father task name 
SUABSHID SNAMET; Shared program name 
SUABFAVA BYTE; Nbr of active I/O operations 
SUABFAVC BYTE; Nbr of complete I/O operations 
SUABREG [8] BYTE; User registers ABCDEHLX 
SUABFLG BYTE; User flags 
SUABBR BYTE; User base register 
SUABSTK [32] UNSIGNED; User stack 
SUABSTB [32] BYTE; User sector table 
}; 


continued 
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SUABPSKS [128] STRUCT { LSN 1 & 2 
SUABPSK BYTE; User PSK 
SUABSPSK SET Status of user PSK 
(SUABPRO,SUABPPRV,SUABPSHR, 
SUABPDAD,JUABPPCR,SUABPPWS); 

}; 

SUABDATA [256] BYTE; LSN 3 thru n 

}; 


USER ABEND memory allocation table format 
(LSN 1 & 2) 

The table consists of 1 entry for each PSK 
allocated to the user. Each entry consists of a PSK 
byte followed by a status byte as defined. The table 
is terminated by a PSK byte of SNOPSK. Two sectors 
are always allocated for the memory allocation table 
to allow for the maximum user allocation of 1020k. 

USER ABEND memory dump (starting in LSN 3) 

The USER ABEND memory dump consists of 16 disks 
sectors per PSK allocated to the user. The memory 
dump order is defined by the memory allocation table 
in LSNs 1 and 2. 


$UNPACKPW type $UNPACKPW 

Unpacked Password 

entered. 82 Jul 01 UPDATED.: 82 Dec 01 

INCLUDE FILE_: DSUFRENV 

USED by FUNCTION: $PAKPW SUNPACKPW 

TYPDEF SUNPACKPW [8] CHAR; 
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UNSIGNED 


TYPE 


UNSIGNED 


DASL scalar data type: 2 bytes unsigned 

entered.: 83 Apr 20 UPDATED.: 

*** DASL COMPILER DEFINED, primary data TYPE *** 


$WFCB 


$WFCB 


Work File I/O Control Block 


ENTERED.: 82 Jul 01 UPDATED.: 84 Jul 01 

INCLUDE FILE....: DSUFRWFIO 

used by function: $TAPEREWIND $TAPEUNL0AD 

STXBKSP JTXCLOSE STXDEL $TX0PEN 

STXOPENP STXPOSEF $TXP0SIT $TXPREP 

STXPREPP $TXREAD STXUPDAT $TXWE0F 

$TXWRITB $TXWRITE SWFCLOSE SWFFLUSH |* 

SWFOPEN SWFOPENP SWFPOSEF $WFP0SIT |* 

JWFPREP $WFPREPP $WFREAD SWFREADL |* 

SWFUPDATE SWFUPDATEL SWFWEOF 
$WFWRITE SWFWRITEL 

POINTED TO in...: JWFIOPRTN 


TYPDEF $UFCB STRUCT { 

fWFCBRSIZ UNSIGNED; Record size 

SUFCBFLAG SWFCBFLAG; Control flag ( $WFF_) 

SUFCBPFDBP A JPFDB; $PFDB pointer 
UNION { 

SUFCBCURR SFILEPTR; current pos pointer 
SWFCBBLKCURR UNSIGNED; current block pos 

non-disk 


}; 

UNION 


}; 


{ 

SUFCBFOF SFILEPTR; EOF pointer 
SMFCBBLKSIZE UNSIGNED; current block size 

non-disk 


continued 
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UNION { 

SWFCBMAX SFILEPTR; disk file maximum pntr 
STRUCT { 

SUFCBBLKMAX UNSIGNED; max block size 

allowed 

SWFCBBLKCOUNT UNSIGNED; block I/O counter 

}; 

}; 

UNION { 

SUFCBPIO A BYTE; Physical I/O routine 

table address 

SMFCBPIOTAB A SWFIOTABPRTN; Routines 

ordered: read, write, EOF set, 
}; EOF get, seek, close, open. 

$UFCBPFDBP2 A $PFDB; Secondary (double 

buffering) PFDB 

fWFCBHOLD BYTE; space compress'n hold area 
SWFCBFLAG2 JWFCBFLAGZ; second control flag 

byte 

SWFCBRESV [4] BYTE; Reserved Area 

}; 


SWFCB is generally initialized by the UFR. 
Sometimes a $WFF.. format must be specified. 


Physical Work File I/O Driver Routines 


EXTERN WFPIOS, DBLBUFFS, PRTIOS, PRTDIOS, 

PIPEIOS, PIPEDIOS, PIPTIMOS BYTE; 

EXTERN TAPEDIOS, TAPEIOJ BYTE; 

EXTERN VIRTUALS, VBASEIOS BYTE; Is VBASEIOS a routine ? 
EXTERN VIOINITS BOOLEAN; something for VIRTUAL ? 
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$WFCBFLAG 


TYPE 


$WFCBFLAG 


Work File I/O Flags 

entered.: 82 Jul 01 UPDATED.: 83 Apr 12 

INCLUDE FILE_: D$UFRWF I 0 

USED in TYPE....: $WFCB 

TYPDEF MFCBFLAG 

SET( JWFFUPDEOF, $WFFDIRTY, SWFFSPCTXT, 
JWFFUNCOMP, JWFFSHRD, SWFFNOTDSK, 
$WFFINPROG, SWFFEOFOK ); 


$WFCBFLAG2 type $WFCBFLAG2 


Second Control Flag Byte Type 

entered.: 83 Apr 02 UPDATED.: 

INCLUDE FILE. DJUFRWFIO 

USED in TYPE : $WFCB 

TYPDEF SUFCBFLAG2 SET(SWFPACKED); 
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SWFIOPRTN 


TYPE 


$WFIOPRTN 


Physical I/O Function Routine Type 

entered.: 83 Apr 02 UPDATED.: 

INCLUDE FILE_: D$ U F RW F I 0 

USED in TYPE.. SWFIOTABPRTN 

TYPDEF SWFIOPRTN (wfcb A JWFCB) DJCCODE; 


$WFIOTABPRTN TY pe SWFIOTABPRTN 


Table of Pointers to Phys I/O Routines 

entered.: 83 Apr 02 UPDATED.: 83 Jul 30 

INCLUDE FILE_: D$UFRWFI0 

POINTED TO in...: $WFCB 

TYPDEF SWFIOTABPRTN [7] A $WFI0PRTN; 
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5WSC0NF 


TYPE 


$WSCONF 


$WCONFIG Status Bits 

ntered.: 82 Jul 01 UPDATED.: 84 Jul 01 

NCLUDE FILE_: DSRMSWS 

SED by FUNCTION: SWCONFIG 


YPDEF SUSCONF 

SETW($WS0,$WS1,$WS2,$WS3,$WSCIAKA, 
$WSCKDKA,$WSCIAUA,$WSCCKA); 

SETV(256,SWSBFSHA,SWSBFKUA,SWSBFKDA,SWSBFKSA, 
$WSBLCFA,$WSBIVA,$WSBCPA,$WSBSWA) 

it Definitions: 


Mask the following four bits with SWSKMASK | 
and then compare to values SSKWS...: j 


$WS0 

1 

$WS1 

2 

$WS2 

4 

$WS3 

010 

SWSCIAKA 

020 

SWSCKDKA 

040 

SWSCIAUA 

0100 

SWSCCKA 

0200 

$WSBFSHA 

0400 

SWSBFKUA 

01000 

$WSBFKDA 

02000 

SWSBFKSA 

04000 

SWSBLCFA 

010000 

SWSBIVA 

020000 

SWSBCPA 

040000 

SWSBSWA 

010000 


Workstation Kind bitO I 

Workstation Kind bitl I 

Workstation Kind bit2 I 

Workstation Kind bit3 j 

INT & ATT keys downstrokes avail. 

KBD & DPY keys static bits & 
upstrokes avail 

INTERRUPT & ATTENTION keys static 
bits and upstrokes available 
Click available 

Shiftd function keys available 
FI thru F5 upstrokes avail 
FI thru F5 downstrokes avail 
FI thru F5 static bits avail 
Display font set loadable 
Inverted video available 
Cursor positioning avail 
Sub windows available 
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$WSC0NF2 


TYPE 


$WSC0NF2 


$WCONFIS Third Status Byte Flags 

entered .: 83 May 03 UPDATED.: 84 Jul 01 

INCLUDE FILE_: D$RMSWS 

USED in TYPE....: SWCONFDS 


TYPDEF SUSC0NF2 SET 

(SWS2P0W,$WS2IPL,SWS2CFL, 
$WS22LVA,SWS2ULNA,$WS2BNKA, 
SWS2EFK0); 


Value Definitions: 


SWS2P0W 1 
SWS2IPL 2 
SWS2CFL 4 
SWS22LVA 010 
SWS2ULNA 020 
SWS2BNKA 040 
SWS2EFK0 0100 


Tube just powered on 
System just Re-Booted 
Cursor font loadable 
2-Level video available 
Underline available 
Blink available 

Expanded function keyboard on-line 
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$WSCONFDS type $WSCONFDS 

$WC0NFI6 4 Byte Status Structure 

entered.: 83 May 03 UPDATED.: 84 Jul 01 

INCLUDE FILE....: DSRMSWS 

USED by function: $WSI0 (CTL Code $WSC0NFD SWSRECON ?) 


TYPDEF SUSCONFDS STRUCT { 

SWSCONC JWSCONF; First Two Bytes 
SUSC0N2 SWSC0NF2; Third Status Byte 
SWSC0N3 Processor Dependent 

(see RMSSYSxx/TEXT) 

ENUM($WS3FD0,$WS3FD1,$WS3FD2,JWS3FD3, 
SWS3FD4); 

DEFINE($WS3FDMK,017) 'Font Data' Mask 
DEFINE(JWS3NFMK,0360) 'Number of Fonts' Mask 
DEFINE($WS3NFS,4) 'Number of Fonts' Shift Value 

}; 


Font Characteristic Indicators 



Val 

Size 

Size 

Length 

Descriptor 



Horiz 

Vert 

Per Char Required? 

SWS3FD1 

1 , 

5 

7 

5 

no 

SWS3FD2 

2, 

5 

7 

7 

no 

JWS3FD3 

3, 

8 

12 

12 

yes 

SWS3FD4 

4, 

9 

12 

12 

yes 

SWS3FD0 

0 , 

Character Font Not 

Loadable 
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SWSIOMODE 


TYPE 


$WSIOMODE 


$WSI0 Mode Bits 

ENTERED .: 82 Jul 01 UPDATED.: 83 Jul 23 

INCLUDE FILE_: DSRMSWS 

USED by FUNCTION: $WS I 0 


TYPDEF SWSIOMODE 

SET($WSMNW, SWSMES, $WSMNI, JWSMNE, $WSMKC0N, 
JWSMDIGO, JWSMPADN, JWSMNESC); 

Definitions: 


SWSMNW 0001 
$WSMES 0002 
$WSMNI 0004 
$WSMNE 0010 
$WSMKC0N 0020 
$WSMDIG0 0040 
SWSMPADN 0100 
SWSMNESC 0200 


Inhibit 'DISPLAY' key wait 
Echo secret (char) 

No case inversion 
No echo or cursor 
Keyin continuous 
Digits only 

Pad numeric decimal part 
No escape before 0-037 or 0177 
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$WSTAT 


TYPE 


$WSTAT 


$WSTATUS Status Bits 

ENTERED.: 82 Jul 01 UPDATED.: 83 Jul 23 

INCLUDE FILE....: D$RMSWS 

USED by FUNCTION: SWSTATUS, $ WAITOS 

TYPDEF $USTAT 

SETW($WSF1,$WSF2,$WSF3,$WSF4,$WSF5, 
JWSDSP,JWSKBD,SWSONL); 

SETV(256,$WSRDY,JWSINT,$WSATT) 

Definitions: 


$WSF1 

0001 

'FI' key down 

SWSF2 

0002 

’ F2 * key down 

SWSF3 

0004 

’ F3 ’ key down 

$WSF4 

0010 

' F4' key down 

$WSF5 

0020 

' F5 ’ key down 

SWSDSP 

0040 

'DISPLAY' key down 

JWSKBD 

0100 

'KEYBOARD' key down 

$WS0NL 

0200 

'ONLINE' status (always 

SWSRDY 

0400 

Key ready 

SWSINT 

01000 

INTERRUPT key down 

SWSATT 

02000 

ATTENTION Key Dowm 
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CROSS REFERENCE SECTION 


FORMAT 

HordCode HordName Value (Octal if Leading 0, else Decimal).... 

.... Description . [: TYPE ref ] : FILE Ref 

WORD CODES 

abr Abbreviation ( does not belong in program code ) 

cr Cross Referanced Function 

dcm DASL Compiler Macro 

dew DASL Control Word 

ddt DASL Data Type 

ddw DASL Declaration Word 

def DASL External Function lacro 

dim DASL Include File Macro 

drw DASL Reserved Word (not dcm,dew,ddt.ddw) 

far File Access Routine Macro 

fid Field of a TYPEDEF'd structure 

inc DASL INCLUDE File Name 

sc System Call Routine Macro 

typ TYPDEF defined Structure 

ufr User Function Routine Macro 

val Value defined in one several ways: 

SET, SETV, SETW, ENUM. ENUMV, DEFINE 
var Variable declared with EXTERN statement 

Where to find more info based on WORD CODE: 
abr No place specific, abreviations are just for help. 
cr FUNCTIONS Section, and the System Prog. Ref. Manual , 

dcm FUNCTIONS Section, and the DASL Document , 

dew FUNCTIONS Section, and the DASL Document , 

ddt TYPES Section, and the DASL Document , 
ddw FUNCTIONS Section, and the DASL Document , 

def FUNCTIONS Section, and the DASL Document , 

dim FUNCTIONS Section, and the DASL Document , 

drw FUNCTIONS Section, and the DASL Document , 

far FUNCTIONS Section, and the System Prog . Ref. Manual , 

fid TYPES Section under TYPE specified at end of line. 

inc LISTS section has functions and types in each file. 

sc FUNCTIONS Section, and the System Prog. Ref. Manual . 
typ TYPES Section, shown as defined in INCLUDE File. 
ufr FUNCTIONS Section, and the System Prog. Ref . Manual . 
val Some shown in TYPES Section with TYPE defining them. 

Also see LIST'S section of flags and values. 
var Some are referenced in TYPES or FUNCTIONS using them. 
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REFERENCE NAME at end of Word Line: 


What the names after the colon mean. 

CODES 

abr None 

cr None 

dcm None 

dew None 

ddt None 

ddw None 

def : Disomething , DASL INCLUDE file that defines 

DASL function interface to the externally 
defined function which is contained in the 
relocatable code library DSLIB/REL. 
dim : D $something , DASL INCLUDE file where the 

DASL Macro is defined. 
drw None 

far : D$FAR typically, the DASL INCLUDE file that 

defines the DASL function's interface to the 
externally defined RMS System function contained 
in relocatable code library FAR/REL. 
fid : type : Disomething , the name of the DASL TYPE 
which contains the named variable field, and the 
DASL INCLUDE File that defines the TYPE. 
inc None 

sc : Disomthing, the DASL INCLUDE file that 

defines the DASL function's interface to the 
RMS Nucleus System Routine function. 
typ : Disomething , DASL INCLUDE file where TYPE defined. 
ufr : D$ something , the DASL INCLUDE file that 

defines the DASL function's interface to the 
externally defined RMS System function contained 
in relocatable code library RMSUFRS/REL. 
val : D%something, DASL INCLUDE file where value defined. 

: type : D isomething, some values are defined within 
the definition of a TYPE, in which case that TYPE is 
listed as well as the DASL INCLUDE file. 
var : D isomething, DASL INCLUDE file where the externally 
defined variable is declared so that its address is 
LINKED into the program as the value of its name. 
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val A$ABORT 
A$ABORT 
val A$PMISS 
A$PMISS 
val A$PRISEL 
val A$SHARE 
val A$VPCASE 
abr ABEND 
abr ABS 
typ $ABSHDR 
fid $ABSSECTOR 
val $ACAIALG 
abr ACB 
typ $ACB 
fid $ACBACC 
fid $ACBBASE 
fid $ACBBUFS 
fid $ACBCALL 
fid $ACBCLSN 
fid $ACBCNFG 
fid $ACBDCOR 
fid $ACBECNT 
fid $ACBELSN 
fid $ACBETXT 
fid $ACBEXCL 
fid $ACBFALS 
fid $ACBFCUR 
fid $ACBHUP 
fid $ACBIGNR 
fid $ACBINDX 
fid $ACBIOST 
fid $ACBKEYL 
fid $ACBKEYN 
fid $ACBLOP 
fid $ACBMCUR 
fid $ACBMLSN 
fid $ACBMSTR 
fid $ACBNMAP 
fid $ACBPCNT 
fid $ACBPFDB 
fid $ACBPMUt 
fid $ACBPSEG 
fid $ACBPSLN 
fid $ACBSKET 
fid $ACBSLGT 
fid $ACBSLOC 
fid $ACBSTAI 
fid $ACBTMAP 
fid $ACBUFDB 
typ $ACCODES 
abr ACK 
val $ACKIU 


the WORDS 


AIMDEX Aborted (Invalid Index) 

0001 : $FCBA.$FCBFLAG2 : D$FAR 

Primary record key must mis-match 
0020 :$FCBA.$FCBFLAG2 : D$FAR 

0040 Primary select active :$FCBA.$FCBFLAG2 : D$FAR 
0200 Shared AIM index :$FCBA.$FCBFLAG2 : D$FAR 

0100 Force upper case :$FCBA.$FCBFLAG2 : D$FAR 

"Abort End Program, Dump Memory to File' 1 
Absolute 


STRUCT; Lib Absolute Element Hdr Sec : D$RMSSTRUCT 


UNION; Absolute member sectors : $LIBSECT0R 

010 Obtain catalog information :$ACC0DES:D$RMSI0 

AIM Control Block 

STRUCT, AIM control block : D$FAR 

BYTE; File access flags : $ACB 

$LSN; Data file base LSN : $ACB 

BYTE; Nbr of buffers (todo) : $ACB 

UNSIGNED; AIM user : $ACB 

$LSN; Current LSN : $ACB 

BYTE; Index config byte : $ACB 

$FILEPTR; Data file cursor : $ACB 

UNSIGNED; Number of extension maps : $ACB 

$LSN; LSN of extension index : $ACB 

[4) BYTE; Start of data expansion : $ACB 

[7] BYTE; Map of excluded key fields : $ACB 

UNSIGNED; False hits : $ACB 1 

BYTE; Free float buffer cursor : $ACB 

CHAU; Highest upper-case character : $ACB 

CHAR; Don’t care character : $ACB 

$LSN; LSN of current index header : $ACB 

BYTE; AIM 1/0 status byte : $ACB 

BYTE; Aggregate key length : $ACB 

BYTE; Number of keys configured : $ACB 

CHAR; Lowest upper-case character : $ACB 

UNSIGNED; Access map cursor : $ACB 

$LSN; LSN of current AIM map : $ACB 

BYTE; Number of master keys : $ACB 

UNSIGNED; Map number : $ACB 

UNSIGNED; Nbr of primary maps : $ACB 

$PFDB; Start of the AIM index PFDB : $ACB 

BYTE; Length of primary maps : $ACB 

BYTE; Nbr of primary segments/sector : $ACB 

BYTE; Primary segment length : $ACB 

[8] BYTE; Pri reed select key : $ACB 

BYTE; Pri reed select key length : $ACB 

a CHAR; Pri reed select key location : $ACB 

BYTE; AIM status byte : $ACB 

[321 BYTE; Current triplet map : $ACB 

$PFDB; Start of the work buffer PFDB : $ACB 

File Access Codes : D$RMSIO 

Acknowledgement 

0100 Delete the file : $ACC0DES : D$RMSI0 
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far $ACLOSE Close an AIM File : D$FAR 

val $ACMAX 000376 Sum of the $ACC0DES : $ACC0DES : D$RMST0 

val $ AC RE AD 0002 Road data : $ACC0DF,S : D$RMST0 

val $ACREATE 0020 Create files under this catalog 

$ACREATE : $ACC0DES : D$RMSI0 

val $ACRENM 040 Rename the file : $ACC0DES : D$RMSI0 

val $ACREPX DEFINE($ACREPX,$ACSECQ) : $ACC0DES : D$RKSI0 

$ACREPX 000200 Exclusive access,disk $0MREPAR only 
val $ACSECQ 0200 Change security info : $ACC0DES : D$RMSI0 
abv ACU Automatic Calling Unit 

val $ACWRIT 0004 Write data and deallocate space 

$ACWRIT : $ACC0DES : D$RMSI0 


far $ADELCR AIM Delete Cur Rec Read by $AREAD,$AREADKG : D$FAR 
abr AFN Associated File Number 

abr AFV Available File Varible ?$ECFMT 2 No more AFVs 

abr AIM Associative Indexed Method 

far $AINS Ins Key in AIM Idx for Existing Data Reed : D$FAR 

far $AI0CLR Complete Pend Writes, Buf Fill on Reads : D$FAR 

val $ALTSC 0200, Alternate SC mode select : D$INC 

abr ANSI American National Standards Institute 

abr ANV Available Node Variable 

far $AOPEN Initialize AIM File Access : D$FAR 

far $APOS Pos to Logical Rec Meeting Key List Spec : D$FAR 

abr ARC Attached Resource Computing 

far $AREAD AIM Read Logical Rec Meeting Key List Spec : D$FAR 

far $AREADCR Read after $AP0S/Re-read Cur after $AREAD : D$FAR 

far $AREADKG AIM Read Key Generic, Read Rees w/ Same Key : D$FAR 

abr ARV Available Resource Variable 

far $AKWRTCR AIM Rewrite Cur Rec after $AREAD, $AREADKC : D$FAR 


abr ASCII American Standard Code for Information Interchange 
abr ASM Assembler (language) 

far $AWRITE Write Reed at End of Data, Ins Key in Index : D$FAR 


sc $BASESET Set the Memory Base Register : D$RMSMEM 
sc $BEEP Workstation, Make a Beep Sound : D$RMSWS 
val $BFTDATA 000002 Data file buffer type : D$FAR 
val $BFTINDX 000001 ISAM index buffer type : DsFAR 
val $BFTOTHR 000003 Other buffer type : D$FAR 


cr BIGBCP$ Compare Large Strings; Assembly Language UFR 
cr BIGBT$ Move 16-bit Length; Assembly Language UFR 

ufr $BINOC2A Convert 24-Bit Binary to ASCII Octal : D$UFRNUM 

ufr $BINOCT Convert 16-bit Binary to ASCII Octal : D$UFRNUM 

abr BJF Batch Job Facility 

ddt BOOLEAN DASL scalar data type: 1 byte unsigned 
abr BUF Buffer 

abr BUFR Buffer 

ddt BYTE DASL scalar data type: 1 byte unsigned 


dew CASE Transfer Control to Statement Number = Argument 

abr CAT Cluster Allocation Table 

abr CCF Central Configuration File 

abr CDF Constant Definitions File 

abr CFD Character Font Database 
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fid $CFGADDR 
typ $CFGEND 
fid $CFGFLAG 
val $CFGFND 
val $CFGGTN 
typ $CFGHDR 
typ $CFGKEY 
fid $CFGKEYW 
val $CFGLONG 
fid $CFGNOKS 
val $CFGNOVH 
$CFGNOVH 
fid $CFGTYPE 
fid $CFGVLGT 
val $CFGVPT 
abr CFT 
ufr $CHAININ 
abr CHAR 
ddt CHAR 
abr CHN 
abr Cl 
val $CILOGO 
val $CILOGl 
val $ClLOG2 
val $CILOG3 
val $ClLOG4 
val $ClLOG5 
val $CILOG6 
val $CILOG7 
val $CILOG8 
val $CILOG9 
val $CISABT 
val $CISACC 
val $CISADR 
val $CISDUAL 
val $CISERRR 
val $CISFMT 
val $CISHAR 
val $CISMEM 
val $CISNORM 
val $CISREAD 
val $cisum 
val $CISVABT 
val $CISWSER 
val $CISYSTB 
val $CK1403 
val $CK88D1 
val $CK88MEM 
val $CK9301 
val $CK9310 
val $CK9315 
val $CK9324 
val $CK9350 
val $CK9370 
val $CK9374 


a BYTE; Output address : $CFCKEY 

BYTE; $SCANCFC Keyword List Terminator : D$UFRSCAN 
BYTE; Control byte : !>CFCKEY 

0200 Keyword found : $CFGKEY.$CFCFLAG : D$UFRSCAN 
0040 Too many values : $CFGKEY.$CFGFLAG : D$UFRSCAN 
[13] CHAR; $SCANCFG Configuration Header :D$UFRSCAN 
STRUCT; $SCANCFG Keyword Parameters : D$UFRSCAN 

[91 CHAR; Keyword : $CFGKEY 

0020 Value too large : $CFGKEY.$CFGFLAG :D$UFRSCAN 
BYTE; Nuber of values : $CFGKEY 

0017 (4 bits) Number of values moved 

: $CFGKEY.$CFGFLAG :D$UFRSCAN 

BYTE; Type flag 
BYTE; Value length 
0100 Value type error : 

Character Font Table 

Workstn-IF, Determine if CHAINing is Active;D$UFRWS 
Character 

DASL scalar data type: 1 byte unsigned 
Chain 

Command Interpreter 
0 Error in SIGNON 

1 Can not be loaded 

2 Command Interpreter can not be loaded 
Error in Command Interpreter 
Not enough memory for SIGNON 
SIGNON aborted 
LOGOFF key sequence 
LOGOFF forced from program 


$CFGKEY.$CFGFLAG 


$CFCKEY 
: $CFGKEY 
:D$UFRSCAN 


3 

4 

5 

6 

7 

8 ** UNUSED ** 

9 Error in LOGOFF program 
002 ’ABORT* key sequence exit 

10 Memory access violation during LOAD 
9 Insufficient logical address space 

11 Dual Sector Tables not supported 
001 ’ERROR' system call exit 

06 Format error in progrm to execute 

12 Shared program mis-match 

010 Not enough mem for prgm execute 
000 'NORMAL' system call exit 
07 Read 1/0 err in prgrm to execute 
000003 User mode violation exit 
5 VANTAGE 'Abort' Key Sequence Exit 
000004 Workstation error exit 

13 Insufficient System Table space 
010 1403 Tortilla flex disk 
04 8800 SMD/MMD disk IM0D 
0005 8800 memory bank 
0006 9301 20 MB Whizzie 
0007 9310 10 MB Cynthia 

9 9315 10 MB Cyclone : 

10 Moses Controller 

000000 9350 Cartridge disk 

01 9370 25 MB Mass stg disk 
02 9374 10 MB Mass stg disk 


D$RMSPROG 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D.$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
$INF0ITEM : D$RMSGEN 
$INF0ITEM : D$RMSGEN 
$INF0ITEM : D$RMSGEN 
$INF0ITEM : D$RMSGEN 
$INF0ITEM : D$RMSGEN 
$INF0ITEM.$ICKIND :D$RMSGEN 
$INF0ITEM.$ICKIND :D$RMSGEN 
:$INFOITEM : D$RMSGEN 
:$INF0ITEM : D$RMSGEN 
:$INF0ITEM : D$RMSGEN 
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val $CK9390 

SC 

$CLICK 

abr 

CLK 

var 

$CL01STP 

abr 

CLOP 

sc 

$CLOSE 

sc 

$CLOSEAL 

ufr$$CLOSEAL 

var 

$CLOTOPP 

abr 

CLP 

&tbr 

CLV 

val $CMCHOP 

abr 

CUD 

val $CmiLL 

val $CMSIZE 

val $cmmcn 

fid 

CNTDEQ 

fid 

CNTENQ 

fid 

CNTINV 

abr 

CNTL 

fid 

CNTLOGF 

fid 

CNTLOGN 

fid 

CNTTO 

fid $CODE 

ufr 

$CONDEC 

ufr 

$C0N0C2i 

ufr $COHOCT 

abr 

CP 

val $CP 

abr 

CPC 

abr 

CREP 

var 

$CS1STP 

ufr $CSCPVSH 

ufr 

$CSPOP 

ufr $CSPUSH 

ufr $cspvsm 

var 

$CSTOPP 

fid 

CTFREBUF 

fid 

CTFREECB 

fid 

CTFRERLE 

fid 

CTFRERSL 

fid 

CTINACT 

fid 

CTNQACT 

fid 

CTNQWAIT 

abr 

CTOS 

fid 

CTREQPND 

fid 

CTUSEBUF 

fid 

CTUSERLE 

fid 

CTUSERS 

fid 

CTUSERSL 

abr 

CTV 

sc 

$ CURSOFF 

sc 

$CURSON 

ufr $CVB 

ufr $CVB2U 


03 9390 67 MB Mass stg disk :$INF0ITEM 
Workstation, make a click sound : 

Clock 

a BYTE; Adr of first byte in CHAIN/bOG ovls 

Central Logon Pipe 

Close a File 

Close All Open Files 

Interface to $CL0SEAL System Call : 

a BYTE; Above top of CHAIN/LOG overlays 

Central Logon Pipe Controller 

Connection Link Variable 

000002 Deallocate to EOF LSN 

Command 

003 Delete the file 
001 Deallocate to specified LSN 
000 No change in file size 
LONG; Number of dequeue requests 

LONG; Number of enqueue requests 

LONG; Number of invalid requests 

Control 

LONG; Number of logoff requests 


D$RMSGEN 

D$RMSWS 

: D$PCR 

: D$RMS 
D$RMSI0 
D$UFRWS 
: D$PCR 


: D$RMS 

: D$RMS 
: D$RMS 
: D$RMS 
$NQDQSTAT 
$NQDQSTAT 
$NQDQSTAT 


LONG; Number of logon requests 
LONG; Number of timed out enqueues 
BYTE; Error number 
Convert Decimal to Binary 
Convert ASCII Octal to 24-Bit Binary 
Convert ASCII Octal to 16-Bit Binary 
Continuation Pointer(buffer adr of first 


0240 Cursor position follows (vert),(horz) 
Cyclic Redundancy Check 
Central Request Pipe 

a BYTE; Addr of first byte in command stack 
Push Command Lines Below Current Pointer 
Workstn-IF, Pop The Command Stack 
Push a Command Line Onto Command Stac 
Push Command Lines Onto Command Stack 
a BYTE; Above top of command stack ? 
UNSIGNED; Free buffers 
UNSIGNED; Number of free control blocks 
UNSIGNED; Nbr of free req list elements 


$NQDQSTAT 
$NQDQSTAT 
$NQDQSTAT 
$ERRC0DE 
D$UFRNUM 
D$UFRNUM 
D$UFRNUM 
flat a byte) 


D$RMSWS 


is not in DASL structure 


Number of inactive users 
Number of active enqueues 
Number of enqueues waiting 
Casette Tape Operating System 
UNSIGNED; Number of requests pending 
Number of used buffers 
Nbr of used req list elements 
Number of logged on users 
is not in DASL structure 
Controller Table Variable 
Workstation, Turn Off the Cursor 
Workstation, Turn On the Cursor 
Convert ASCII Decimal to 16-Bit Binary 
Convert ASCII Decimal to 24-Bit Binary 


UNSIGNED; 

UNSIGNED; 

UNSIGNED; 


UNSIGNED; 

UNSIGNED; 

UNSIGNED; 


: D$PC'R 
D$UFRWS 
D$UFRWS 
D$UFRWS 
D$UFRWS 
: D$PCR 
$NQDQSTAT 
$NQDQSTAT 
$NQDQSTAT 
$NQDQSTAT 
$NQDQSTAT 
$NQDQSTAT 
$NQDQSTAT 


$NQDQSTAT 

$NQDQSTAT 

$NQDQSTAT 

$NQDQSTAT 

$NQDQSTAT 

: D$RMSWS 
: D$RMSWS 
: D$UFRNUM 
: D$UFRNUM 
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ufr $CVB24L 
ufr $CVD 
ufr $CVD24 
ufr $CVD24Z 
ufr $CVDZ 
typ $CVSTBL 
fid $CVSTDAY 
fid $CVSTDOW 
fid $CVSTHH 
ufr $CVSTIME 
fid $CVSTJD 
fid $CVSTMM 
fid $CVSTMON 
fid $CVSTSS 
fid $CVSTYR 


var D$A 
var D$B 
var D$BC 
var D$BUF1 
var D$BUF2 
var D$BUF3 
var D$BUF4 
var D$BUF5 
var D$C 
def D$CALL 
typ D$CALLF 
var D$CC 
typ D$CCODE 
val D$CFLAG 
def D$COMP 
var D$D 
var D$DE 
var D$E 
inc D$ERRCODE 
inc D$ERRNUM 
inc D$FAR 
def D$GET24 
var D$H 
var D$HL 
inc D$INC 
def D$INFO 
def D$JUMP 
var D$L 
def D$HOVE 
def D$MOVER 
inc D$PCR 
val D$PFLAG 
def D$PUT24 
def D$RFI2 
D$RFI2 
inc D$RMS 
inc D$RMSGEN 
inc DfRMSIO 

Document 61585 


Convert ASCII Decimal to 24-Bit Binary 

Convert 16-Bit Binary to ASCII Decimal 

Convert 24-Bit Binary to Decimal 

$CVD24 with Zero-Suppression 

$CVD with Zero-Suppression 

STRUCT;$CVSTIME Output Area 

BYTE; Day of Month 

BYTE; Day of Week 

BYTE; Hour of Day 

Obtain System Date,Time Info 

UNSIGNED; Julian Date (Day of Year) 

BYTE; Minute of Hour 

BYTE; Month of Year 

BYTE; Second of Minute 

UNSIGNED; Year 


: D$UFRNIJM 
: D$UFRNUM 
: D$UFRNUM 
: D$UFRNUM 
; D$UFRNUM 
: D$UFRGEN 
: $CVSTBL 
: $CVSTBL 
: $CVSTBL 
: D$UFRGEN 
: $CVSTBL 
: $CVSTBL 
: $CVSTBL 
: $CVSTBL 
: $CVSTBL 


EXTERN D$A BYTE; : D$INC 

EXTERN D$B BYTE; : D$INC 

EXTERN D$BC UNSIGNED; : D$INC 

EXTERN D$BUF1 [256] BYTE; : D$INC 

EXTERN D$BUF2 [256] BYTE; : D$INC 

EXTERN D$BUF3 [256] BYTE; : D$INC 

EXTERN D$BUF4 [256] BYTE; : D$INC 

EXTERN D$BUF5 [256] BYTE; : D$INC 

EXTERN D$C BYTE; : D$INC 

Call an Arbitrary Extern Defined Subroutine : D$INC 
(); External Function to CALL Subroutines : D$INC 
EXTERN D$CC D$CCODE; : D$TNC 

Condition Code Flags : D$INC 

001 Carry flag : D$CC0DE : D$INC 

Block Compare Two Character Strings : D$INC 

EXTERN D$D BYTE; : D$INC 

EXTERN D$DE UNSIGNED; : D$INC 

EXTERN D$E BYTE; ; D$INC 

System Error Code 

RMS System Function Error Class Numbers 

File Access Routines, REQUIRES D$RMS 

Numeric, Convert 24 Bit to 32 Bit Value : D$INC 

EXTERN D$H BYTE; : D$INC 

EXTERN D$HL UNSIGNED; : D$INC 

Basic DASL definitions, Standard Include 

Return Processor Type : D$INC 

EXTERN ( f a D$CALLF) : D$RMS 

EXTERN D$L BYTE; : D$INC 

Block Move 0 to 65535 Bytes : D$INC 

Block Move Reverse, Starting at Ending Adr ; D$INC 

Program Communications Region Definitions 

010 Parity flag : D$CC0DE : D$INC 

Numeric, Convert 32 Bit to 24 Bit Value : D$INC 

DASL external function for defining macros in 

include files (not a user function). : D$RMSPR0G 

Common Nucleus and UFR definitions 

RMS General System Function Definitions 

File Handling, Block I/O, Disk, Printer, Pipe 


■01; DASL DICTIONARY 04Aug84: WORDS 7 










Datapoint Confidential Information - see title page 


inc D$RMSMEM Memory Management Definitions 

inc D$RMSPROG Program Loading and Execution Control 

inc D$RMSSPEC Special System Calls 

inc D$RMSSTRUCT Disk Structure Definitions 

inc D$RMSTASK User Multi-tasking 

inc D$RMSWS Workstation 

def D$SC Call a SYSTEM CALL External Function : D$TNC 

val D$SFLAG 004 Sign flag : D$CC0DE : D$INC 

inc D$UFRENV Environment Handling 

inc D$UFRENV Requires D$RMSI0 include if $$FILENAM function used 

inc D$UFRERR Error Handling 

inc D$UFRGEN General Utility 

inc D$UFRLIB Library Manipulation 

inc D$UFRMEH Memory Management 

inc D$UFRNQDQ NQ/DQ UFR Definitions 

inc D$UFRNUM Numeric Manipulation 

inc D$UFRRLD Relocating Loader 

inc D$UFRSCAN Command Interpreter (Scanning) 

inc D$UFRSYS System Interface 

inc D$UFRWFIO Work File I/O 

inc D$UFRWS Workstation Interface 

inc D$WORKSTN Special Workstation Definitions 


var D$X EXTERN D$X BYTE; : D$INC 

var D$XA EXTERN D$XA UNSIGNED; : D$INC 

val D$ZFLAG 002 Zero flag : D$CC0DE : D$INC 

abr DASL Datapoint Advanced Systems Language 

fid DATA 10] CHAR; Environment data : $ENVT 

ufr $DAIETIM Convert System Time to Standard : D$UFRCEN 

var DBLBUFF$ EXTERN DBLBUFF$ BYTE; Driver Routine ?: D$UFRWFI0 
abr DBMS Data Base Management System 

abr DBOMP DATABUS Compiler 

typ $DCB STRUCT; Data File Control Block : D$FAR 

fid $DCBACC BYTE; $ACC0DES file access flags ($AC..) : $DCB 

fid $DCBAPFD a $PFDB; Alternate PFDB pointer : $DCB 

fid $DCBBLK BYTE; Block size from $MFDBLSZ : $DCB 

fid $DCBCBFP BYTE; Current buffer : $DCB 

fid $DCBCLFP $FILEPTR; Current (real) file ptr (LSB..MSB) : $DCB 

fid $DCBCLRP $FILEPTR; Logical record ptr (LSB..MSB) : $DCB 

fid $DCBCPFD a $PFDB; Current PFDB pointer : $DCB 

fid $DCBEOFP $FILEPTR; EOF pointer : $DCB 

fid $DCBFLG1 BYTE; DFCB flag byte 1 : $DCB 

fid $DCBFLG2 BYTE; DFCB flag byte 2 : $DCB 

fid $DCBHBFP BYTE; High dirty buffer pointer : $DCB 

fid $DCBMAB $MAB; Managed DCB redefinition of PFDB : $DCB 

fid $DCBPFDB $PFDB; Data file PFDB : $DCB 

far $DCLOSE Direct Access, Close : D$FAR 

abr DCR ? 

far $DDEL Direct Random Access, Delete : D$FAR 

far $DDELCR Direct Sequential Access, Delete Current : D$FAR 

ufr $DECOHSI Environment, Decompress an HSI String : D$UFRENV 


dew DEFAULT Preceeds Statement in CASE for No-match Condition 


dem DEFINE Define a String to be Substituted for Identifier 
fid $DELIMT 116] BYTE; Name delimiter characters :$INF0ITEM 

val $DELMENV 072 ’:’ Environment name follows :D$UFRSCAN 

val $DELMEXT 057 '/' File extension follows :D$UFRSCAN 


* 


Document 61585-01; DASL DICTIONARY 04Aug84: 


WORDS 


8 






Datapoint Confidential Information - see title page 


val $DELMHSI 
val $DELMNOT 
val $DELMOPQ 
val $DELMOPT 
val $DELMORE 
val $DELMQRY 
val $DELMST1 
val $DELMSYM 
abr DFCB 
far $DGETCRK 
far $DGETNRK 
abr DID 
far $DIOCLR 
sc $DISCONT 
fid $DISKEY 
fid $DISKEYL 
fid $DISNUM 
ufr $DISORT 
ufr $DISPCH 
fid $DISRLEN 
fid $DISTAB 
typ $DISTBL 
fid $DISWORK 
ufr $DIVID3 
val $DK863M 
val $DK883M 
val $DKCARDP 
val $DKCARDR 
val $DKCASS 
val $DKCOHM 
val $DKDISK 
val $DKFAX 
val $DKMAGT 
val $DKMAX 
val $DKPIPE 
val $DKPRINT 
val $DKPTP 
val $DKPTR 
val $DKRIM 
val $DKSMPLR 
val $DKTIMER 
val $DKWS 
abr DLL 
ufr $DLMCHEK 
abr DLMT 
sc $DONATFV 
far $DOPEN 
abr DOS 
far $DPOS 
far $DPOSEOF 
far $DPOSNX 
far $DPOSPV 
far $DREAD 
far $DREADCR 
far $DREADNX 


056 ' . ' 

HSI level delimiter 


055 

Not mark 


042 

Option quoted value 

delimitor 

073 

Command line options 

delimiter 

053 '+' 

More mark 


077 '?' 

Query mark 


054 ' ,' 

Valid specification 

terminator 

075 '=' 

Symbolic field name 

preceeds and 


Data File Control Block 

Direct Seq Access, Get Current Record Key 
Direct Seq Access, Get Next Record Key 
Destination Identification 
Direct Access, I/O Clear 
Disconnect Node 

UNSIGNED; Displacement of key within entry 
UNSIGNED; Length of key 
UNSIGNED; Number of table entries 
Diminishing Increment In-Core Sort : 

Workstn-IF, Display One Character 
UNSIGNED; Length of table 
a BYTE; Location of table 
STRUCT; $DISORT Parameter Table : 

a BYTE; Location of work area 
Numeric, Unsigned 24-bit Division : 

0015 8600 3M Cartridge tape :$0PENPT 

0014 8800 3M Cartridge tape :$0PENPT 

0011 Card punch :$0PENPT 

0010 Card reader :$0PENPT 

0004 Cassette tape :$0PENPT 

0006 Communications channel :$0PENPT 

0001 Disk :$0PENPT 

020 FAX Equipment :$0PENPT 

5 Industry compatible mag tape :$0PENPT 
DEFINEd 020 Largest resource kind number 


$0PENPT 

$0PENPT 

$0PENPT 

$0PENPT 

$0PENPT 

$OPENPT 

$0PENPT 

$0PENPT 


0002 Pipe (soft resource) 

0003 Printer 
0013 Paper tape punch 
0012 Paper tape reader 
0017 Direct RIM access 
016 Task executn time sampler 
0007 Delay timer elk,soft res 
0000 Work station (pseudo res) 

Down Line Load 

Check Character For a Delimiter 
Delimiter 

Donate a FAV to a specified task 
Direct Access, Open 
Disk Operating System 
Direct Random Access, Position 
Direct Random Access, Position to EOF 
Direct Sequential Access, Position to Next 
Direct Sequential Access, Pos to Previous 
Direct Random Access, Read 
Direct Sequential Access, Read Current 
Direct Sequential Access, Read Next 


D$UFRSCAN 

D$UFRSCAN 

D^UFRSCAN 

D$UFRSCAN 

D$UFRSCAN 

D$UFRSCAN 

D$UFRSCAN 

D$UFRSCAN 

: D$FAR 
; D$FAR 

: D$FAR 
D$RMSI0 
$DISTBL 
$DTSTBL 
$DTSTBL 
D$UFRGEN 
D$UFRWS 
$DISTBL 
$DISTBL 
D$UFRGEN 
$DISTBL 
D$UFRNUM 
: D$RMS 
; D$RMS 
: D$RMS 
: D$RMS 
: D$RMS 
: D$RMS 
: D$RMS 
: D$RMS 
: D$RMS 
D$RMSI0 
: D$RMS 
: D$RMS 
: D$RMS 
: D$RMS 
: D$RMS 
: D$RMS 
: D$RMS 
: D$RMS 


D$UFRWS 


D$RMSSPEC 
: D$FAR 


D$FAR 

D$FAR 

D$FAR 

D$FAR 

D$FAR 

D$FAR 

D$FAR 
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far $DREADPV 
far $DRWRT 
far $DRWRTCR 
abr DST 
typ $DSTINFO 
far $ WRITE 
far $WRITNX 
far $WRTEOF 


Direct Sequential Access, Read Previous : D$FAR 
Direct Random Access, Rewrite : D4>FAR 
Direct Sequential Access, Rewrite Cvirrent : D$FAR 
Daylight Savings Time 

Daylight Savings time Start/Stop Table : D$RMSGEN 
Direct Random Access, Write : D$FAR 
Direct Sequential Access, Write Next : D$FAR 


Direct Sequential Access, Write End of File : D$FAR 
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NOTE: Tn the FUNCTIONS section descriptions of error codes, 
the contents of: 

; $ERRC.$FUNC is usually SC$ ... or $UEC... and 

$ERRC,$CODE is usually $EC...nn or $UEC...nn 

The $EC...nn or $UEC...nn ends with a decimal number which 
is its value. 

The words with a :* at the end of the line in this section, 
WORDS , are defined in DASL in the D$ERRCODE include file. 
You may use those words in statements testing the value of 
$ERRC.$CODE , otherwise you must use the decimal value. 


val $ECDFV2 2 Specified task does not exist :* 
val $ECFMSO 0 FCB not open :* 
val $ECFMS1 1 Invalid open mode requested :* 
val $ECFHS2 2 Invalid FCB type for operation :* 
val $ECFMS3 3 Open attempted on an open FCB :* 
val $ECFMS4 4 No remaining address space :* 
val $ECFMS5 5 Write-protected sector mapped :* 
val $ECFMS6 6 $FCBNBFS is zero :* 
val $ECFMS7 7 Requested resource not disk :* 
val $ECFMS8 8 *** RESERVED FOR FUTURE USE *** :* 
val $ECFMS9 9 Invalid character in output record :* 
val $ECFMS10 10 Record format error :* 
val $ECFMS11 11 Invalid index file type :* 
val $ECFMS12 12 Insufficient buffers for ISAM block :* 
val $ECFMS13 13 Environment entry for ISAM data file not found:* 
val $ECFMS1A 14 Illegal operation — duplicate record :* 
val $ECFMS15 15 Invalid LFV type in FMT :* 
val $ECFMS16 16 Pipe message sequence error from FMT :* 
val $ECFMS17 17 Log-on device not a pipe :* 
val $ECFMS18 18 Index file env in MFD not found :* 
val $ECFMS19 19 Data file env in MFD not found :* 
val $ECFMS20 20 Invalid open type for direct file :* 
val $ECFMS21 21 No FMT pipes found :* 
val $ECFHS22 22 Buffer attempt beyond $BPLAST :* 
val $ECFMS23 23 Bytes expected greater than bytes in response :* 
val $ECFMS2U 24_Response byte count exceeded :* 
val $ECFMS25 25*$D0PEN attempted on indexed MFD :* 
val $ECFMS26 26 Index key length exceeds FCB key length :* 
val $ECFMS27 27 Data file is MFD type :* 
val $ECFMS28 28 MFD file version incompatible :* 
val $ECFHS29 29 FMT version incompatible :* 
val $ECFMS30 30 Managed file access violation :* 
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NOTE: In the FUNCTIONS section descriptions of error codes, 
the contents of: 

$ERRC,$FUNC is usually SC $... or $UEC ... and 

$ERRC.$CODE is usually $EC...nn or $UEC...nn 

The $EC...nn or $UEC..,nn ends with a decimal number which 
is its value. 

The words with a :* at the end of the line in this section, 
WORDS , are defined in DASL in the D$ERRCODE include file. 
You may use those words in statements testing the value of 
$ERRC,$CODE , otherwise you must use the decimal value. 


val $ECFMS31 31 FMT connection lost :* 
val $ECFMS32 32 Unmanaged FAR not in user command file :* 
val $ECFNS33 33 Managed FAR not in user command file :* 
val $ECFMS35 35 Data read access violation :* 
val $ECFMS36 36 Data write access violation :* 
val $ECFHS37 37 Index read access violation :* 
val $ECFHS38 38 Index write access violation :* 
val $ECFMS39 39 $IPREP: invalid $FCBBLKL :* 
val $ECFMS40 40 $IPREP: invalid $FCBKLGT :* 
val $ECFMS46 46 data file not in text format :* 
val $ECFMS46 46 Data file is not in text format :* 
val $ECFMS67 47 Environment entry for data file not found :* 
val $ECFMS48 48 Insufficient buffers for AIM index :* 
val $ECFNSU9 49 Bad AIM index :* 
val $ECFHS50 50 Insufficient data in key :* 
val $ECFMS51 51 Key conflict :* 
val $ECFMS52 52 Incorrect key format :* 
val $ECFMS53 53 No valid read prior to $areadkg :* 
val $ECFMS54 54 Illegal $ARWRTCR or $ADELCR :* 
val $ECFMS55 55 Invalid free-float key specification :* 
val $ECFMS57 57 Invalid data file cursor :* 
val $ECFMS58 58 Invalid maxi associated data file spec :* 
val $ECFMS59 59 Incompatible AIM index :* 
val $ECFMT0 0 No more UAVs :* 
val $ECFMT1 1 No more LFVs :* 
val $ECFMT2 2 No more AFVs :* 
val $ECFNT3 3 Invalid version number in config rec :* 
val $ECFWIb 4 Invalid processor for configuration :* 
val $ECFMT5 5 No such debug ws :* 
val $ECFMT6 6 Debug ws name missing :* 
val $ECFMT7 7 No more logical address space :* 
val $ECFHT8 8 FMT root module invalid :* 
val $ECFMT9 9 Overlay descriptor not initialized :* 
val $ECFMT10 10 Transfer address not given ($0VLRET) :* 
val $ECFHT11 11 Invalid $BPFLAG field in message :* 
val $ECFMT12 12 Invalid request message length :* 
val $ECFMT13 13 Sequence error :* 
val $ECFMT16 14 Invalid operation code in req :* 
val $ECFMT15 15 Invalid working set (M0VDPT$) :* 
val $ECFHT16 16 Req msg format error :* 

Document 61585-01; DASL DICTIONARY 04Aug84: WORDS 12 






Datapoint Confidential Information - see title page 


val $ECFMT17 

17 

val $ECFMT18 

18 

val $ECFMT19 

ID 

val $ECFMT20 

20 

val $ECFMT21 

21 

val $ECFMT22 

22 

val $ECFMT23 

23 

val $ECFMT2i 

24 

val $ECFMT25 

25 

val $ECFMT26 

26 

val $ECFMT27 

27 

val $ECFMT28 

28 

val $ECFMT29 

29 

val $ECFMT30 

30 

val $ECFMT31 

31 

val $ECFMT33 

33 

val $ECFMT34 

34 

val $ECFMT35 

35 

val $ECFHT39 

39 

val $ECFMT40 

40 

val $ECFMTU1 

41 

val $ECLIOO 

0 

val $ECLI01 

1 

val $ECLI02 

2 

val $ECLI04 

4 

val $ECLI06 

6 

val $ECLI08 

8 

val $ECLI09 

9 

val $ECLI010 

10 

val $ECLI011 

11 

val $ECLI012 

12 

val $ECLI013 

13 

val $EClIOU 

14 

val $ECLI020 

20 

val $ECLI021 

21 

val $ECLI022 

22 

val $ECLI023 

23 

val $ECLI02i 

24 

val $ECLI025 

25 

val $ECLI026 

26 

val $ECLI027 

27 

val $ECLI030 

30 

val $ECLI031 

31 

val $ECLI032 

32 

val $ECLI033 

33 


File access violation 
Invalid close mode 

Invalid T.FV type for operation : 

Invalid LFV id : 

Invalid record size requested : 

Invalid block size requested at open : 

Invalid open mode requested : 

Attempted open on non-disk resource : 

Attempted open on MFD file : 

Attempted read past EOF (PREAD$) : 

ISAM data file name does not match : 

ISAM data file mask does not match : 

Invalid ISAM index file format 
SQL too large for prep or create : 

No user pipe connection : 

FMT locked : 

Attempted config on file with log ext : 

Invalid value for timing option (FMTCONT) 
Invalid default configuration (CONFGFMT) : 

Invalid request code : 

Invalid configuration file (CONFGFMT) : 

Illegal operation 
LFDB not open 

Attempt to write an illegal byte 

Record out of range 

Attempt to rewrite a long record 

Logical rewrite attempted on a deleted record 

Terminating adr less than file-cursor in $LRFDE 

ISAM open attempted on non-disk resource 

Invalid close mode requested 

PDAM module for resource not configured 

Invalid open mode requested 

User abort in exception routine 

Too many levels of index - reorganize index 

PDAM $PMXBF less than block size 

ISAM index structure fault 

Duplicate keys not allowed 

Key length greater than $IKEYLEN 

Key length exceeds limit for block size 

Key length exceeds ISAM limit 

Index key length exceeds IFDB key length 

Operation timed out 

Communications link failure 

Break received 

Data received without available buffer 


* 

* 

k 

* 

* 

* 

•k 

k 

* 

* 

* 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 
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NOTE: In the FUNCTIONS section descriptions of error codes, 
the contents of: 

$ERRC.$FUNC is usually SC$ ... or $UEC... and 
$ERRC.$CODE is usually $EC...nn or $UEC...nn 

The $EC...nn or $UEC..,nn ends with a decimal number which 
is its value. 

The words with a :* at the end of the line in this section, 
WORDS , are defined in DASL in the D$ERRCODE include file. 
You may use those words in statements testing the value of 
$ERRC,$CODE , otherwise you must use the decimal value. 


val $ECLI03A 

34 

val $ECLI035 

35 

val $ECLI036 

36 

val $ECLI037 

37 

val $ECLI038 

38 

val $ECLI039 

39 

val $ECLIO40 

40 

val $ECLI041 

41 

val $ECLI050 

50 

val $ECLI051 

51 

val $ECLI052 

52 

val $ECLI070 

70 

val $ECLI071 

71 

val $ECLI072 

72 

val $ECLI073 

73 

val $ECLI074 

74 

val $ECLI075 

75 

val $ECLI076 

76 

val $ECLI077 

77 

val $ECLI078 

78 

val $ECLI079 

79 

val $ECLI080 

80 

val $ECLI081 

81 

val $ECLI082 

82 

val $ECLI083 

83 

val $ECLI084 

84 

val $ECLI085 

85 

val $ECLI086 

86 

val $ECLI087 

87 

val $ECLKF2 

2 

val $ECLOAD2 

2 

val $ECL0AD3 

3 

val $ECLOAD4 

4 

val $ECLOAD6 

6 

val $ECL0AD7 

7 

val $ECL0AD8 

8 

val $ECLPS0 

0 

val $ECLPS1 

1 

val $ECLPS2 

2 

val $ECLPS3 

3 


Parity error on received data 
Lost carrier 

Requested function not available 
Existing connection still present 
No power-on indication from A.C.U. 

A.C.U. malfunctioned 

A.C.U. retry limit exceeded 

Invalid character in phone number string 

Invalid sub-function requested 

Record format error 

$FDTFLEN points to an LSN containing no EOF mark 

File on tape not found 

Invalid tape section mounted 

Invalid standard level in ANSI VOLl label 

Invalid label type encountered 

File on tape not expired 

Record format error on tape 

Invalid block count found in trailer label 

Invalid $TPUTEOV request for opened label-set 

Not enough buffers to contain maximum block 

Invalid tape resource 

Missing VOLl label 

Invalid max. block size found in the HDR2 label 

Invalid record size found in the HDR2 label 

Missing EOV/EOF label-set 

Invalid label-set requested at open 

Label-set requested at open is not configured 

Missing HDR2 label 

Too many user labels encountered 

Invalid mode :* 

Read error in absolute code file :* 

Format error in absolute code file :* 

Insufficient user logical address space :* 

Invalid absolute code file format :* 

Read error in absolute code file :* 

Load address outside user mapped space :* 

Bad parameter 

Bad Zone Number 

Release LMT 

No Physical Memory 
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val 

$ECLPSi 

4 

val 

$ECLPS5 

5 

val 

$ECLPS6 

6 

val 

$ECLPS7 

7 

val 

$ECLPS8 

8 

val 

$ECLPS9 

9 

val 

$ECMCTL1 

1 

val 

$ECHCTL2 

2 

val 

$ECMCTL3 

3 

val 

$ECHGET0 

0 

val 

$ECMGET1 

1 

val 

$ECflKEY0 

0 

val 

$ECHKEY1 

1 

val 

$ECMAP0 

0 

val 

$ECMHAP1 

1 

val 

$ECHREL0 

0 

val 

$ECNREL1 

1 

val 

$ECUREL2 

2 

val 

$ECHREL3 

3 

val 

$ECMTX0 

0 

val 

$ECMTX1 

1 

val 

$ECNTX2 

2 

val 

$Ectrrx3 

3 

val 

$ECMTX 4 

4 

val 

$ECHTX5 

5 

val 

$ECHTX6 

6 

val 

$Eatrx7 

7 

val 

$ECMTX8 

8 

val 

$ECMTX9 

9 

val 

$ECMTX10 

10 

val 

$ECMTX11 

11 

val 

$ECHTX12 

12 

val 

$ECHTX13 

13 

val 

$Ecmrx50 

50 

val 

$ECHTX51 

51 

val 

$ECHTXS2 

52 

val 

$ECHTX53 

53 

val 

$ECRFI0 

0 

val 

$ECRFU 

1 

val 

$ECSCL1 

1 

val 

$ECSCL2 

2 

val 

$ECSCL3 

3 


Bad Parameters for LCALL 

LPS Software Stack Under/Overf1ow 

LPS Out of Memory 

Patching — External Memory Request 

Patching — LMT Error 

Bad Processor (not 8600 or 8800) 

Invalid function number 

Not on console with maximum security level 

No room in System Table 

No more memory sectors available 

Already at maximum allocation 

Invalid mapped sector number entry 

Memory sector not allocated 

Invalid physical sector key entry 

Invalid mapped sector number entry 

Invalid physical sector key entry 

Shared read-only mem sector release attempted 

PCR memory sector release attempted 

Specified memory sector has I/O in progress 

User connection lost 

Request message length error 

FMT is locked due to "FMTCONT. . ;die" 

Message buffer sequence error 
Invalid operation 

No more users can be handled by this FMT 
Workstation for "FTMCONT..;DEBUG=" not avail 
Invalid configuration file version 
Invalid processor type 

Out of address space (global initialization) 
Out of addr space (MTX member initializatn) 
MTXD0WN$ internal error 
No such MTX member 

GETBPSK$ (buffer management) internal error 
Address 010000 already mapped ($MTXUP) 
Configuration file already open 
No current DCR selected 

Configuration file must not have extent "LOG" 

Invalid interrupt type number 

Workstation required 

Invalid function mode 

Invalid test output type 

Selective test output list full 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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NOTE: Tn tho FUNCTIONS section descriptions of error codes, 
the contents of: 

$ERRC.$FUNC is usually SC$ ... or $UEC. .. and 
$ERRC.$CODE is usually $EC...nn or $UEC...nn 

The $EC...nn or $UEC...nn ends with a decimal number which 
is its value. 

The words with a :* at the end of the line in this section, 
WORDS , are defined in DASL in the D$ERRCODE include file. 
You may use those words in statements testing the value of 
$ERRC,$CODE , otherwise you must use the decimal value. 


val $ECSCL4 

4 

val $ECSCL5 

5 

val $ECSCL6 

6 

val $ECSCL7 

7 

val $ECSCL8 

8 

val $ECS1001 

01 

val $ECSI002 

02 

val $ECSI003 

03 

val $ECS1004 

04 

val $ECS1005 

05 

val $ECSI006 

06 

val $ECSI007 

07 

val $ECSI008 

08 

val $ECS1009 

09 

val $ECSI010 

10 

val $ECSI011 

11 

val $ECSI012 

12 

val $ECS1013 

13 

val $ECSIOU 

14 

val $ECS1015 

15 

val $ECSI016 

16 

val $ECS1017 

17 

val $ECSI018 

18 

val $ECSI019 

19 

val $ECSI020 

20 

val $ECSI021 

21 

val $ECS1022 

22 

val $ECSI023 

23 

val $ECSI02i 

24 

val $ECSI025 

25 

val $ECSI026 

26 

val $ECSI027 

27 

val $ECSI028 

28 

val $ECSI029 

29 

val $ECSI030 

30 

val $ECSI031 

31 

val $ECSI032 

32 

val $ECSI033 

33 

val $ECSI03i 

34 

val $ECSI035 

35 


Function not available 
No console privileges 
Specified task does not exist 
Not on physical system console 
Invalid line number 

Invalid file access variable identificatn key 
Invalid physical sector key in parameter table 
Invalid buffer address in parameter table 
Invalid M to do” value in parameter table 
Resource no longer available 

Hard resource error(media/contrllr)-get help! 
File access violation 

Read beyond end of physical file attempted 
Resource write protected 

Operation still in progress on file access var 
All available segments in file have been used 
Hard disk err while using sys tables-get help! 
Hard disk err during disk structr change-help! 
Disk structure (system table) crror-gct help! 
Disk write protected (structure unchanged) 
Operation timed out 
Operation aborted by user 

Invalid sub-func code given in param. table 
More data read than can fit in specified buffr 
No I/O was outstanding 

Node given in specified env does not respond 

Resource given in specified env is not online 

File could not be found using specified env 

Required catalog file does not exist 

File or resource busy with other use 

No more space on disk 

No more space in disk directory 

System table space exhausted 

No overlay space for resource driver 

Name contains invalid characters 

Name already in use 

Logical sector number outside allocated space 
Rename to different resource attempted 
Invalid mode 
Item not found 


* 

* 

* 

* 

* 

* 

* 

k 

k 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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vai $ECSI036 
va 1 $ECSI037 
va 1 $ECSI038 
val $ECSIOiO 
val $ECSIOil 
val $ECSI042 

val $ECSI0b3 
val $ECSI(M 
val $ECS1045 
val $ECSI046 
val $ECSI047 
val $ECSI0U8 
val $ECSI049 
val $ECSI050 
val $ECSI051 
val $ECSI052 
val $ECSI053 
val $ECSI05i 
val $ECS1055 
val $ECSI056 
val $ECS1057 
val $ECSI058 
val $ECSI059 
val $ECSI060 
val $ECSI061 
val $ECSI062 
val $ECSI063 
val $ECSI064 
val $ECSMAXO 
val $ECSHAX1 
val $ECSMINO 
val $ECSMIN1 
val $ECSTH1 
val $ECSTH2 
val $ECSTM3 
val $ECTCLO 
val $ECTCL1 
val $ECTCL2 
val $ECTCL3 
val $ECTERH 
$ECTERM 
val $ECTRAPO 
val $ECTSK2 
val $ECTSK3 
val $ECTSK4 
val $ECTSK5 
val $ECTSK5 


36 Too many items found :* 

37 Invalid access hit supplied :* 

38 Invalid file descriptn table phys cluster nr :* 

40 Too many passwords supplied :* 

41 Invalid time value :* 

42 Security change access can’t be removed from 

file :* 

43 Named driver overlay not included in config :* 

44 Data communication system failure : * 

45 Remote connection failure :* 

46 Operation beyond end of resource attempted :* 

47 Feed command not accepted :* 

48 Multi-punch error :* 

49 Att.mpt made to create a pipe w/o delete access:* 

50 A file is open on that node :* 

51 Mem access violation at other end of a pipe :* 

52 Remote pipe req hooked to another remote req :* 

53 Multifile resource reserved :* 

54 Remote operation not supported :* 

55 Node given not configure! for file node support:* 

56 Net name needd if node linkd to 2 or more nets 

57 Driver cannot execute with current config :* 

58 Invalid hash code in bad track table :* 

59 Driver not successfully loaded into IMOD :* 

60 Specified file is not a catalog file :* 

61 ? :* 

62 Power lost to printer :* 

63 Resource name too long :* 

64 HSI data too long :* 

0 Maximum must not be less than current minimum :* 
1 Max must not be less than current allocation :* 
0 Function invalid in shared program :* 

1 Insufficient memory to grant request :* 

1 No console privileges :* 

2 Invalid time table :* 

3 Invalid mode :* 

0 Invalid task identifier supplied :* 

1 No access to specified task :* 

2 Invalid task secret number supplied :* 

3 Invalid mode :* 

DEFINE’d MAXUNSIGNED : D$ERRNUM 

0177777 nevr possible err code,msg file terminator 
0 Invalid interrupt type number :* 

2 Memory donated as PCR has outstanding I/O :* 

3 Task creation attempted by a local task :* 

4 No sys table space for new user task Ctrl blck:* 

5 Specified task does not exist 

5 Invalid task identifier supplied 
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NOTE: In the FUNCTIONS section descriptions of error codes, 
the contents of: 

$ERRC.$FUNC is usually SC$ ... or $UEC ... and 

$ERRC.$CODE is usually $EC...nn or $UEC...nn 

The $EC,.,nn or $UEC ...nn ends with a decimal number which 
is its value. 

The words with a :* at the end of the line in this section, 
WORDS , are defined in DASL in the D$ERRCODE include file. 
You may use those words in statements testing the value of 
$ERRC.$CODE y otherwise you must use the decimal value. 


val $ECTSK6 
val $ECTSK6 
val $ECTSK7 
val $ECTSK8 
val $ECTSK9 
val $ECTSK11 
val $ECTSK12 
val $ECTSK13 
val $ECTSKU 
val $ECTSK15 
val $ECTSK16 
val $ECTSK17 
val $ECTSK18 
val $ECTSK29 
val $ECUABO 
val $ECUAB2 
val $ECUAB3 
val $ECUAB4 
val $ECUAB5 
val $ECUAB6 
val $ECUCSO 
val $ECUCS1 
val $ECUCS2 
val $ECUCSGO 
val $ECUMAV 
val $ECWI001 
val $ECWSCC1 
val $ECWSCC2 
val $ECWSCC3 
val $ECWSGCO 
val $ECWSGC1 
val $ECWSI01 
val $ECWSI02 
val $ECWSI03 
val $ECWSIOU 
val $ECWSI05 
val $ECWSI06 
val $ECWSTA1 
val $ECWSWT1 


6 Indepndnt task termination by task not allowed:* 

6 Access violation :* 

7 Invalid task secret number supplied :* 

8 Insufficient memory or program address space :* 

9 Invalid mode :* 

11 Format error during indep. task program load :* 

12 Read error during indep. task program load :* 

13 Not enough physical memory for indep task prgm:* 

14 Not enough log addr space for indep task prgm :* 

15 Memory access viol, during indp task prgm load:* 

16 Dual sector table unsupported for ind.tsk prgm:* 

17 Shared prgm error during indep task prgm load :* 

18 No room in system table for new SPV :* 

29 No room for new user task :* 

0 User ABEND already active 

2 User ABEND not active :* 

3 Specified task does not exist :* 

4 No access to task to set User ABEND :* 

5 No access to task to set USER ABEND :* 

6 Resource is a byte string device :* 

0 Invalid usr creatd semaphore identifier suppld:* 

1 UCS not owned by this task, wrong father :* 

2 Closed semaphores cannot be deleted :* 

0 No systm tabl space for new usr creatd semphor:* 
0 memory access violation : D$ERRNUM 

1 No expanded function keyboard available :* 

1 Workstation off line :* 

2 Invalid cursor position :* 

3 Invalid mode :* 

0 Keyboard entry fifo empty :* 

1 Workstation off line :* 

1 Workstation off line :* 

2 Invalid cursor position :* 

3 Invalid control function code :* 

4 Keyin aborted by function key :* 

5 Keyin aborted due to time out :* 

6 Invalid control string parameter :* 

1 Workstation off-line :* 

1 Workstation off-line :* 
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val $EEOF 
val $EEOL 
val $EL 
abr ELF 
dew ELSE 
abr ENQ 
ddw ENTRY 
dim ENUM 
dim ENUMV 
abr ENV 
fid $ENV 
ufr $ENVDEL 
ufr $ENVFNDM 
ufr $ENVINS 
ufr $ENVLGET 
ufr $ENVLOC 
val $ENVMAXL 
$ENVMAXL 
typ $ENVN 
ufr $ENVPDAT 
ufr $ENVPEEL 
ufr $ENVPHSI 
ufr $ENVPLOP 
ufr $ENVPNAM 
ufr $ENVPNET 
ufr $ENVPNOD 
ufr $ENVPPAS 
ufr $ENVPRES 
typ $ENVT 
val $ENVTERM 
abr EOF 
val $EOFGET 
val $EOFSET 
val $EOFWRIT 
abr EOR 
abr EOT 
abr EOV 
abr EPN 
abr EPT 
ufr $ERMSG 
var $ERRC 
typ $ERRCODE 
sc $ERROR 
val $ES 
val $ESNF 
sc $EXIT 
abr EXT 
fid $EXT 
fid $EXT 
ddw EXTERN 
typ $EXTT 


0200 Erase from cursor to end of frame : D$RMS 

0201 Erase from cursor to end of line : D$RMS 

0222 Advance to new 1ino,terminate strg : D$RMSWS 
Error Logging File 

Part of IF THEN ELSE Execution Control 
Enquiry 

Declare Global Name; may be Referenced Externally 
Define Var Type BYTE, Values 0 thru 8 : D$INC 

Define Values Incrementing from Initial : D$INC 
Environment 

$ENVN; Environment : $NAMEEXTENV 

Delete Existing Environment : D$UFRENV 

Find Environment Data Match ; D$UFRENV 

Insert New Environment : D$UFRENV 

Obtain Environment Entry Length : D$UFRENV 

Locate Existing Environment ; D$UFRENV 

(SIZE0F<$ENVT>)+3*((SIZE0F<$NAMET>)+l)+(SIZE0F<$HSI> ) 
000313 : D$UFRENV 

(8) CHAR; Environment Name : D$RMS 

Position to Env Data in an Env Entry : D$UFRENV 
Create Master Catalog Environment : D$UFRENV 

Pos to HSI Name in an Environment Entry : D$UFRENV 
Pos to UET Link In Open Parameter Table : D$UFRENV 
Pos to Environment Name in an Env Entry : D$UFRENV 
Position to Net Name in an Env Entry : D$UFRENV 

Position to Node Name in an Env Entry : D$UFRENV 
Position to First Password in Env Entry : D$UFRENV 
Position to Resource Name in Env Entry : D$UFRENV 
STRUCT; Environment Table Entry : D$UFRENV 

0377 Environment data string terminator : D$RMS 
End Of File 

000000 Get the current EOF LSN : D$RMSI0 

000001 Set the current EOF LSN : D$RMSI0 

2 Write to EOF immediately : D$RMSI0 

End Of Record 
End Of Transmission 
End Of Volumn 
Entry Point Names 

Entry Point (Table) 

Display RMS Minimum Error Message 
EXTERN $ERRC $ERRC0DE; Standard RMS Err Code 
STRUCT; RMS Standard Error Code 
Abort a Program 
0231 End of string 

0271 End Of String, don't flush display 


Exit a Program 
Extension 
$EXTT; Extension 
$EXTT; Extension 


D$RMS 
:D$RMS 
D$RMS 
D$RMS 
D$RMS 
D$RMSWS 
: D$RMS 


; $NAMEEXT 
: $NAMEEXTENV 
Declare a Name Defined in Another Program Module 
[4] CHAR; File Extension : D$RMS 
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val FALSE 000000 Boolean value: ’false 1 : D$ING' 

abr FAR File Access Routine 

val $FARIFVR 000004 FARCDEFS/SRC version : D$FAR 

ddw FAST Future Code Generators; Var. Resides in Register 


abr FAT File Access Token 

abr FAV File Access Variable 

abr FAVM File Access Variable Marker 

abr FBE Free Buffer Enquires 

abr FCB File Control Block 

typ $FCBA STRUCT; File Control Block for AIM File : D$FAR 

fid $FCBACB $ACB; Start of the ACB : $FCBA 

typ $FCBAIM Macro to Configure AIM File Control Block : D$FAR 

typ $FCBAIMI Initializer Macro used by $FCBAIM : D$FAR 

fid $FCBBLKL BYTE; Number of AIM PFDB buffers : $FCBA 

fid $FCBBLKL BYTE; Length of ISAM block in sectors : $FCBIS 

typ $FCBD STRUCT; File Control Block for Direct File : D$FAR 

fid $FCBDBFS BYTE; Number of bufrs associated with D.PFDB: $FCBA 

fid $FCBDBFS BYTE; Number of bufrs associated w/D.PFDB : $FCBD 

fid $FCBDBFS BYTE; Nbr of bufrs associated with D.PFDB : $FCBIS 
fid $FCBDCB $DCB; Start of the DFCB (data file) : $FCBA 

fid $FCBDCB1 $DCB; Start of the DFCB (data file) : $FCBIS 

fid $FCBDCB2 $DCB; Start of the data control block : $FCBD 

typ $FCBDIR Macro to Configure Direct File Control Block :D$FAR 
typ $FCBDIRPRT Macro used by $FCBPRT, $FCBDIR, $FCBD0VR : D$FAR 
typ $FCBDIRPRTI Initializer Macro used by $FCBDIRPRT : D$FAR 

typ $FCBDOVR Macro to Configure Direct-Overlapped 1/0 FCB :D$FAR 
fid $FCBFLG1 BYTE; Flag byte 1 : $FCBA 

fid $FCBFLG1 BYTE; Flag byte 1 : $FCBD 

fid $FCBFLG1 BYTE; Flag byte 1 : $FCBIS 

fid $FC3FLG2 BYTE; AIM flag byte : $FCBA 

fid $FCBFLG2 BYTE; User ISAM flag byte : $FCBIS 

fid $FCBHASH BYTE; Hash code for data file name : $FCBA 

fid $FCBHASH BYTE; Hash code for data file name : $FCBIS 

fid $FCBICB $ICB; Start of the ICB : $FCBTS 

typ $FCBIS STRUCT; File control block for ISAM file : D$FAR 

typ $FCBISAM Macro to Configure ISAM File Control Block : D^FAR 

typ $FCBISmi Initializer Macro used by $FCBISAM : D$FAR 

fid $FCBKEY a a CHAR; Pointer to user’s key list : $FCBA 

fid $FCBKEY a CHAR; Address of the user’s ISAM key area :$FCBIS 

fid $FCBKLGT BYTE; Number of keys in key list : $FCBA 

fid $FCBKLGT BYTE; Length of the ISAM key : $FCBIS 

fid $FCBLINK [2] UNSIGNED; Primary links : $FCBA 

fid $FCBLINK [4] BYTE; Primary links : $FCBIS 

typ $FCBPRT Macro to Configure Print File Control Block : D$FAR 
fid $FCBRLGT UNSIGNED; Length of the user record : $FCBA 

fid $FCBRLGT UNSIGNED; Length of the user record : $FCBD 

fid $FCBRLGT UNSIGNED; Length of the user record : $FCBIS 

fid $FCBSLLR 12] UNSIGNED; Secondary links : $FCBA 

fid $FCBSLLR [4] BYTE; Secondary links : $FCBIS 

fid $FCBUREC a CHAR; User record address : $FCBA 

fid $FCBUREC a CHAR; User record address : $FCBD 

fid $FCBUREC a CHAR; User record address : $FCBIS 

val $FCSBIN 00004 Opened file is binary :$FCBA.$FCBFLG1 : D$FAR 

val $FCSCMPR 00002 Compressed records : $FCBA. $FCBFI.Gl : D$FAR 


val $FCSIDUP 00001 Indicates that duplicate keys are allowed 
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$FCSIDUP 
val $FCSISHR 
val $FCSMNGD 
$FCSMNGD 
val $FCSNKEY 
$FCSNKEY 
val $FCSOPEN 
val $FCSOVER 
val $FCSTACB 
val $FCSTDCB 
val $FCSTICB 
val $FCSTMSK 
val $FCSTPRT 
val $FCSTPRV 
val $FCSTSAB 
val $FCSTSIB 
abr FCT 
abr FCV 
ufr $FDPACK 
abr FDT 
fid $FDTACCO 
fid $FDTKEYL 
val $FDTKEYN 
ufr $FDUNPAR 
fid $FFLAG 
abr FFMT 
typ FFMTABL$ 
val $FFMT AIM 
val $FFMT BAS 
val $FFMT BIN 
val $FFMTDBC 
val $FFMT ISM 
val $FFMTJOB 
val $FFMTL55 
$FFMTL55 
val $FFMTL66 
val $FFMTL60 
val $FFMTMAC 
val $FFMTMFD 
val $FFMTPTR 
val $FFMTR55 
val $FFMTR66 
val $FFMTR80 
val $FFMTRAC 
$FFMTRAC 
val $FFMTRPM 
val $FFMTSYS 
val $FFMTTMP 
$FFMTTMP 
val $FFMTTXT 
val $FFMTUPF 
val $FFMTUTX 
val $FFMTWPF 
val $FFMTWPS 
val $FFMTXFD 


:$FCBIS.$FCBFLG2 : D$FAR 
00002 Shared use flag :$FCBTS.$FCBFLG2 : D$FAR 
00020 This file is managed at an FMT 

:$FCBA.$FCBFLGl : D$FAR 
00004 Indicates key info not to he returned 

:$FCBIS.$FCBFLG2 : D$FAR 
00010 This file is open :$FCBA.$FCBFLGl : D$FAR 
00001 Overlapped I/O :$FCBA.$FCBFLGl : D$FAR 
00300 Primary AIM FCB :$FCBA.$FCBFLG1 : D$FAR 
0100 DFCB (direct or byte) :$FCBA.$FCBFLG1 : D$FAR 
000040 Primary ISAM FCB :$FCBA.$FCBFLGl : D$FAR 
000340 FCB type mask :$FCBA.$FCBFLG1 : D$FAR 
0200 Printer FCB - DISK res :$FCBA.$FCBFLG1: D$FAR 
0240 Printer FCB - PRINT res :$FCBA.$FCBFLG1: D$FAR 
0340 Secondary AIM FCB :$FCBA.$FCBFLG1: D$FAR 
0140 Secondary ISAM FCB :$FCBA.$FCBFLG1: D$FAR 
File Creation Time 


File Control Variable 
Numeric, Pack Two Decimal Numbers 
File Description Table 
$ACC0DES; Access Code 
$PACKPW; Packed Password 
9 Number of keys 

Unpack Character Into Two ASCII Digits 
BOOLEAN; File open flag 
File Format 


: D$UFRNUM 

: $FILEKEY 
: $FILEKEY 
: D$RMST0 
: D$UFRNUM 
: $F1LESTBL 


EXTERN FFMTABL$ [01 STRUCT;File Fmt Table: D$UFRGEN 
0020 AIM format :$0PENPT.$0TFMT : D$RMS 
0007 Basic Object Code :$0PENPT.$0TFMT : D$RMS 
0013 Binary Data :$0PENPT.$0TFMT : D$RMS 
0006 Databus Object Code :$0PENPT.$0TFMT : D$RMS 
0003 Isam Index :$0PENPT.$0TFMT : D$RMS 
0012 CHAIN Job File :$0PENPT.$0TFMT : D$RMS 
0004 Loadable 5500 REL/ABS Object Library 

:$0PENPT.$0TFMT : D$RMS 
0024 Loadable 6600/8x00 product :$0PENPT : D$RMS 
0025 Loadable 8600/8800 product :$0PENPT : D$RMS 
0010 Macro Library :$0PENPT.$0TFMT : D$RMS 
0015 Managed File Descriptor:$0PENPT.$0TFMT : D$RMS 
050 File Pointer file :$0PENPT.$0TFMT : D$RMS 
040 Released 5500/3800 product : $0PENPT : D$RMS 
041 Released 6600/8x00 product : $0PENPT : D$RMS 
042 Released 8600/8800 product : $0PENPT : D$RMS 
0005 Non-Loadable REL/ABS Object Library 

:$0PENPT.$0TFMT : D$RMS 
0040 Min val, released product types:$0PENPT: D$RMS 
0000 System File :$0PENPT.$0TFMT : D$RMS 
0001 Temporary File (Must be a 1) 


:$0PENPT.$0TFMT : D$RMS 
0002 Text (Logical Records) :$0PENPT.$0TFMT : D$RMS 
0016 Universal Print Format :$0PENPT.$0TFMT : D$RMS 
0014 Uncompressed Text Data :$0PENPT.$0TFMT : D$RMS 
0017 Word Processing Format :$0PENPT.$0TFMT : D$RMS 
0011 Word Processing Library:$0PENPT.$0TFMT : D$RMS 
021 Extendd file (multi-volume file):$0PENPT:D$RMS | 
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fid $FFTCODE 
fid $FFTNAME 
abr FIFO 
fid $FILALLO 
val $FILANYR 
val $FILECHK 
val $F1 LED AT 
ufr $FILEFMT 
val $FILECET 
typ $FILEINFO 
typ $FILEKEY 
typ $FILEKETS 
val $FILENAM 
ufr$$FILEMAM 
$FILENAM 
val $FILENVR 
val $FILEPCN 
ufr$$FILEPCN 
ufr$$FILEPCU 
typ $FILEPTR 
sc $FILES 
typ $FILESPK 
typ $FILESTBL 
val $FILEXTR 
fid $FILFCT 
val $FILFDEF 
fid $FILFEXT 
fid $FILFFMT 
fid $FILFINC 
fid $FILFLEN 
fid $FILFNAM 
val $FILNAMR 
val $FILNDSP 
val $FILQMOK 
fid $FILSEGM 
val $FINDNOD 
$FMS 
FMS 
$FMT 
FMT 

$FNAMP 
$FNAMP 
$FOREVER 
sc $FORMAT 
fid $FP 
fid $FPCN 
fid $FPCNP 
fid $FPTRBUFOF 
fid $FPTRLSN 
ufr $FSCAN 
abr FSD 
abr FSL 
fid $FSODEMV 
fid $FSODEXT 
fid $FSODNAM 


val 

abr 

val 

abr 

fid 

val 


BYTE;File Format Code : FFMTABL$ 

[4] CHAR; File Format Name : FFMTABL$ 

First Tn, First Out 

$LSN;LSN of last allocated sector : $FILEINFO 

010 Some Fid Entry is Reqd:$FILESPK : D$RMS 

03 $FILES mode: Check for file opened :D$RMST0 

4 Get FDT data for specific FAV : D$RMST0 

Convert File Fmt Codes to ASCII String : D$UFRGEN 
02 $FILES mode: Get file name from FAV :D$RMSI0 
STRUCT;Info from $FILENAM Mode of $FILES : D$RMSI0 
STRUCT;File Key Structure : D$RMSI0 

l$FDTKEYN] $FILEKEY; File Key List Array : D$RMSI0 
1 $FILES mode:Get file names from FDT-PCN's 
Obtain the Next File Name in Catalog 


0004 Environment Required:$FILESPK 
00 $FILES mode: Get file FDT-PCN r s 
Open Catalog File and Obtain PCNs 
Special Entry to $$FILEPCN 
STRUCT; File Pointer Structure 
Multi-Resource, Obtain Disk File Info : 
STRUCT; $SCANFLS File Specification 
STRUCT; $FILES, $GETSFI Param Structure 
0002 Extension Required : $FILESPK 


D$UFRENV 
D$RMSI0 
: D$RMS 
D$RMSI0 
D$UFRENV 
D$UFRENV 
: D$RMS 
D$RMSI0 
: D$RMS 
D$RMSI0 
D$RMS 


$TIME; File creation time 
0020 The Field is Defined 
$EXTT; Extension 
BYTE; File format code 
UNSIGNED; File increment in sectors 
$LSN; LSN of EOF sector 
$NAMET; File name 
0001 Name Required : $FILESPK.$FS00PT : D$RMS 

0100 Inhibit Dspy if undef : $FILESPK : D$RMS 

040 Query/More/Not Marks Allwd : $FILESPK : D$RMS 

BYTE; Number of used segments : $FILEINF0 

077 ’?’find the node with the givn resource:D$RMSI0 


: $FILEINF0 
$FILESPK : D$RMS 
$FILEINF0 
$FILEINF0 
$FILEINF0 
$FILEINF0 
$FILEINF0 


000303 *FMS 1 

File Management System 
000304 'FMT’ 

File Management Task 

a $FILEINF0; File info storage pointer : 
000010 Pointer to file name ($FILENAME) 
000377 

Multi-Resource, Format a Unit on the Disk 
LONG; 

UNSIGNED; PCN of file ? : 

a UNSIGNED; Pointer to PCN’s : 

BYTE; Offset within sector 
$LSN; LSN 

Cmdlnt, Compress a $FILESPK : 

File Structure Directory 
File Security Level 
a $ENVN; Default environment pointer 
a $EXTT; Default extension pointer 
a $NAMET; Default name pointer 


D$ERRNUM 

D$ERRNUM 

$FILESTBL 

: D$RMSI0 
: D$RMST0 
$FILEPTR 
$FILESTBL 
$FILESTBL 
$FILEPTR 
$FILEPTR 
D$UFRSCAN 


$FILESPK 

$FILESPK 

$FILESPK 
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fid $FSOOPT Option specification qualification : $FILESPK 

fid $FSOSFT $SFENT; Symbolic file table : $FILESPK 

fid $FTODO UNSIGNED: Number of PCN’s to convert : $FTT,ESTBT. 

fid $FUNC BYTE; Routine number : $ERRCODE 

ddt "FUNCTION" DASL variable type; Indicated by (); the word 

"FUNCTION" is not a reserved word. 
fid $FX1 [6] BYTE; : $FTLESTBL 

fid $FX2 BYTE; : $FILESTBL 

fid $FX3 BYTE; : $FILESTBL 


val $gBLCorn 
val $gBRCorn 
val $gBTBar 
val $gCommand 
val $gCROSS 
val $gCurs 
val $gCursD 
val $gCursL 
val $gCursR 
val $gCursU 
ufr $GDAXTin 
ufr $GENSMSK 
ufr $GENSTST 
val $gEnter 
ufr $GETCHN 
ufr $GETCHTO 
ufr $GETCSTK 
ufr $GETCSTO 
sc $GETIME 
ufr $GETLINE 
ufr $GETLNTO 
ufr $GETPASS 
sc $GETSFI 
val $gHBar 
val $gLTBar 
sc $GWTEN 
abr GMT 
dew GOTO 


0004 Bottom left corner: L 
0005 Bottom right corner: J 
0011 Bottom T-bar: J- 
0022 Command: □ 

0014 Cross: -f 
0000 Cursor: | 

0016 Cursor Down: <1 
0017 Cursor Left: ♦ 

0020 Cursor Right: ♦ 

0015 Cursor Up: f 

Obtain Current ASCII Date/Time String 
Generate Generic Scanning Masks 
Name Test-Under-Mask and Generate 
0021 Enter: H* 

Get Response from CHAIN File / WS 
Timeout for GETCSTK$ and GETCHN$ 

Get Response from Command Stack / WS 
Timeout for GETCSTK$ and GETCHN$ 

Obtain Current System Time 
Get Response from Stack, CHAIN, or WS 
Timeout Controlled Version of GETLINE 
Obtain, Compress Password from Keyin 
Obtain Symbolic File Identification 
0007 Horizontal bar: - 
0012 Left T-bar: (■ 

Get Last User Task Error Number 
Greenwich Mean (Co-ordinated Universal) 


: D$W0RKSTN | 
: D$W0RKSTN | 
: D$W0RKSTN | 
: D$W0RKSTN | 
: D$W0RKSTN | 
: D$W0RKSTN | 
: D$W0RKSTN I 
: D$W0RKSTN I 
: D$W0RKSTN | 
: D$W0RKSTN | 
: D$UFRGEN 
: D$UFRSCAN 
: D$UFRSCAN 
: D$W0RKSTN | 
: D$UFRWS 
: D$UFRWS 
: D$UFRWS 
: D$UFRWS 
: D$RMSGEN 
: D$UFRWS 
: D$UFRWS 
: D$UFRENV 
: D$RMSI0 
: D$W0RKSTN | 
: D$W0RKSTN | 
: D$RMSPR0G 
Time 


Transfer Control to Labled Statement in Same Func 


val $gRTBar 0013 Right T-bar: -| 

fid $GSFIEXT $EXTT; File extension 

fid fGSFIHSI $HSI; File HSI 

fid $GSFINAM $NAMET; File name 

fid $GSFINET $NAMET; Network containing the node 

fid $GSFINOD $NAMET; Node containing the resource 

fid $GSFIRES $NAMET; Resource containing the file 

val $gTLCorn 0002 Top left corner: r 

val $gTRCorn 0003 Top right corner: -j 

val $gTTBar 0010 Top T-bar: T 

val $gUserMeta 0177 User data meta character: ■ 

val $gVBar 0006 Vertical bar: | 

val $gVBBar 0030 Vantage bottom bar: - 

val $gVBLCorn 0025 Vantage bottom left corner: L 

val $gVBRCorn 0026 Vantage bottom right corner: V 

val $gVCurs 0001 Vantage cursor: [] 


dSworkstn | 

$SFITABLE 
$SFITABLE 
$SFITABLE 
$SFITABLE 
$SFITABLE 
$SFITABLE 
D$WORKSTN | 
D$W0RKSTN | 
D$W0RKSTN | 
D$W0RKSTN | 
D$W0RKSTN | 
D$W0RKSTN | 
D$W0RKSTN | 
D$W0RKSTN | 
D$W0RKSTN | 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 


* 

* 


* 


* 

* 

* 

* 

* 

* 

* 

* 

* 
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val $gVLBar 
val $gVRBar 
val SgVTBar 
val $gVTLCorn 
val $gVTRCorn 


0031 Vantage left bar: | 

0032 Vantage right bar: ^ 

0027 Vantage top bar: z 

0023 Vantage top left corner: f 

0024 Vantage top right corner: ^ 


D$W0RKSTN |* 
D$W0RKSTN !* 
Df>WORKSTN |* 
D$W0RKSTN |* 
D$W0RKSTN |* 


val $H 
val $HA 
val $HD 
abr HFD 
abr HSI 
typ $BSI 
val $m 


0234 New cursor column follows (pos) : D$RMS 

0236 Cursor column adjustment follows (adj):D$RMSWS 
0242 Home down to lower left-hand corner : D$RMS 
Hashed File Directory 
Hierarchical Structure Information 
132] CHAR; Hierarchical Structure Info Array :D$RMS 
.0241 Home up to upper left-hand corner : D$RMS 


abr I/O 
abr IAC 
fid $ICACCNT 
abr ICB 
typ $ICB 
fid $ICBACC 
fid $ICBCKEY 
fid $ICBCURS 
fid $ICBDCUR 
fid $ICBFLG1 
fid $ICBLFP 
fid $ICBMXKL 
fid $ICBPFDB 
fid $ICBTOP 
fid $ICECNT1 
fid $ICECNT2 
fid $ICECNT3 
fid $ICECNT4 
fid $ICECNT5 
fid $ICID 
fid $ICKIND 
far $ICLOSE 
fid $ICMBANK 
fid $ICMBITS 
val $IC0NTV 
fid $ICPORT 
far $IDEL 
far $IDELCR 
far $IDELK 
abr IDENT 
val $IDLMTAB 
abr IEOS 
dew IF 
abr IFDB 
dem IFELSE 
far $IINS 
far $IIOCLR 
fid $ILFLAGS 
fid flLIGCNT 


Input / Output 
Initial Access Code 

(4] BYTE; Activity counter,read & write 
ISAM Control Block 
STRUCT; ISAM Control Block 
BYTE; Index file access flags ($AC..) 
a CHAR; Address of the key save area 
a BYTE; Current block and offset (LSB,MSB) 
$FILEPTR; Data file cursor (LSB.MSB) 

BYTE; Flag byte 2 (see $IFSTB LRIOCDEF/SRC) 
$LSN; LSN of the ISAM LFP (LSB.MSB) 

BYTE; Maximum key length 
$PFDB; Start of the index PFDB 
$LSN; LSN of top of tree (LSB.MSB) 

UNSIGNED; Error counter 1 
UNSIGNED; Error counter 2 
UNSIGNED; Error counter 3 
UNSIGNED; Error counter 4 
UNSIGNED; Error counter 5 


: $INF0ITEM 


D$FAR 
$ICB 
$ICB 
$ICB 
$ICB 
$ICB 
$ICB 
$ICB 
$ICB 
$ICB 
$INF0TTEM 
$INFOITEM 
$INFOITEM 
$INF0ITEM 
$INF0ITEM 


UNSIGNED; Controller variable identifier :$INF0ITEM 
(...);Controller kind ($CK...) : $INFOITEM 
ISAM, Close : D$FAR 
BYTE; Memory bank number of CTV : $INF0ITEM 
(22] BYTE; 22 bit error counters in CTV : $INFOITEM 
022 Return all controller variables : D$RMSGEN 
BYTE; Logical port number : $INF0ITEM 
ISAM Random, Delete : D$FAR 
ISAM Seq, Delete Current Record Key, Data : D$FAR 
ISAM Random, Delete Record's Key : D$FAR 
Identification Sector 

000020 Return delimiter table : D$RMSGEN 
Interated Electronic Office Station 


Execute THEN Expression if Argument Non-zero, etc 
Index File Descriptor Block 

If First 2 Strings are Equal Result is 3rd,Else 4 
ISAM Random, Insert : D$FAR 

ISAM, I/O Clear : D$FAR 

$N0DEFLAGS; Flags ( $INF...) : $INF0TTEM 

UNSIGNED; Ignored received message count :$INF0ITEM 
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val $ILINKAL 
val $ILINKND 
fid $TLNAME 
typ ILONG 
fid $ILRCONF 
fid $ILRXMES 
fid $ILTXABT 
fid $ILTXERR 
fid $ILTXHES 
abr IHOD 
val $IMYNODE 
fid $INBCLSL 
fid $INBNETN 
fid $INBNLPT 
fid $INBNLSL 
fid $INBNODN 
fid $INBRESN 
dcm INCLUDE 
dcm INCR 
abr INDEP 
fid $INDID 
fid $INETNAM 
val $INFCFU 
val $INFCONG 
val $INFFHA 
val $INFIFS 
$INFIFS 
fid $INFLAG 
sc $INFO 
fid $INFODUmr 
val $INFOFF 
$INFOFF 
typ $INFOITEH 
val $INFTXER 
$INFTXER 
val $INODEAL 
val $INODEND 
fid $INONAME 
fid $INSTART 
ddt INT 
typ $INTS 
fid $INTSCC 
fid $INTSRAD 
fid $INTSREG 
fid $INTSXAD 
fid $INVRP 
far $IOPEN 
abr IPL 
far $IPOS 
far $IPOSKP 
far $IPOSKS 
far $IPREP 
fid $IRCDRVR 
fid $IRCOttET 
far $IREAD 


000015 Return all connection links 
000014 Find named connection link 
$NAMET; Name of link and net linked to 
STRUCT; 24 Bit Number Structure 
UNSIGNED; Reconfiguration counter 
UL0NG; Received message counter 
UNSIGNED; Xmission aborted (TA timeout) 
UNSIGNED; Transmissions with no TMA 
UL0NG; Transmitted message counter 


: D$RMSGEN 
: D$RMSCEN 
: $TNFOTTEM 
: D$INC 
: $INF0ITEM 
: $INF0ITEM 
: $INF0TTEM 
: $INF0ITEM 
: $INF0ITEM 


017 Return name of local node : D$RMSGEN 

CHAR; Command/DLL library suffix letter : $INF0ITEM 

$NAMET; Boot net name : $TNF0ITEM 

BYTE; Nucleus library processor type : $INF0ITEM 

CHAR; Nucleus library suffix letter : $INF0ITEM 

$NAMET; Boot node name : $INF0ITEM 

$NAMET; Boot resource name : $INF0ITEM 

Obtain Program Input Lines from Specified File 

Produce a Value by Incrementing the Argument by 1 
Independent (Task) 

BYTE; Destination identification : 

$NAMET; Network name : 

010 Checking file in use : $NODEFLAGS 
004 ANV in process of connectn:$NODEFLAGS 
040 FAV Markers Available : $NODEFLAGS 
020 Incoming file support configured 

: $N0DEFLAGS 

$N0DEFLAGS; Flags ( $INF... ) : 

Obtain System Configuration Information 
[501 BYTE; : 

001 Offline: ANV disconnect; CLV hard error 

: $N0DEFLAGS : D$RMSCEN 
UNION; Info Returned by $INF0 
002 Transmitter blocked by error 

: $NODEFLAGS 

000013 Return all available nodes 
000012 Find named available node 
$NAMET; Node name 
$TIME; Startup time 

DASL scalar data type: 2 bytes signed 
STRUCT; Interupt State Table 
BYTE; Condition code 
a BYTE; Return address 
[81 BYTE; Registers 
$STARTADR; Execute address 
[51 CHAR; Ver/Rev/Pre ASCII letters vvrrp:$INF0ITEM 
ISAM, Open : D$FAR 

Initial Program Load 

ISAM Random, Position : D$FAR 

ISAM Sequential, Position to Key Previous : D$FAR 

ISAM Position to Next Key Sequential Record : D$FAR 

ISAM, Prepare File : D$FAR 

BYTE; Driver overlay ident. number : $INF0ITEM 

BYTE; Error threshold : $INF0ITEM 

ISAM Random, Read : D$FAR 


$INF0ITEM 
$INFOITEM 
D$RMSGEN 
:D$RMSGEN 
D$RMSGEN 

D$RMSGEN 

$INF0ITEM 

D$RMSGEN 

$INF0ITEM 


D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

$INF0ITEM 

$INF0ITEM 

D$RMSPR0G 
$INTS 
$INTS 
$TNTS 
$INTS 
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far $IREADCR 

ISAM 

far $IREADKP 

TSAM 

far $IREADKS 

TSAM 

val $IRF6 

0100 

val $IRFBSD 

0200 

$IRFBSD 

val $IRFCHK 

010 

val $IRFOCP 

002 

val $IRFOFF 

001 

val $IRFSPC 

040 

$IRFSPC 

val $IRFSTP 

020 

val $IRFWRP 

04 

val $IRHFAL 

05 

val $IRMFND 

04 


fid $IROCVID 
fid $IROERCT 
fid $IROFCNT 
fid $IROFLAG 
fid $1R0FREC 
fid $IROHRDR 
fid $IROHRDW 
fid $IROKIND 
fid $IROMAXC 
fid $IRONAME 
fid $IRORDCT 
fid $IROSCUJ 
fid $IROSFTR 
fid $IROSFTW 
fid $IROSUBD 
fid $IROSUBK 
fid $IROTIME 
fid $IROWRCT 
val $IRSFAL 
val $IRSFND 
fid $IRUCFAV 
val $IRUDAXA 
fid $IRUFBUF 
fid $IRUFLAG 
typ $IRUFLAGS 
val $IRUIFA 
$IRUIFA 
val $IRUIFH 
$IRUIFH 
fid $IRUMBUF 
fid $IRUMEMA 
fid $IRUMFAV 
fid $IRUMKBC 
fid $IRUHKFC 
val $IRUOFH 
fid $IRUOVAC 
fid $IRUOVLD 
fid $IRUOVWT 
fid $IRUSRWT 
fid $IRUSTEA 


: $RSRCFLAGS 

Resource is byte string device 

: $RSRCFLAGS 

SYSCHECK in progress :$RSRCFLAGS 
Resource occupied : $RSRCFLAGS 

Resource offline : $RSRCFLAGS 

Special Open Mode - Open if Off-Line 
: $RSRCFLAGS 

Disk Sys Table problems :$RSRCFLAGS 
Resource write protected :$RSRCFLAGS 
Return all multi file resources 
Find named multi file resource 
UNSIGNED; Controller var.serial num.( M ) 
UNSIGNED; Error counter CARD READER 
UNSIGNED; Open files counter ( ,f ) 
$RSRCFLAGS; Resource flags ( $IRF.. ) 
UNSIGNED; Free clusters (DISK ONLY) 
UNSIGNED; Hard read error counter 
UNSIGNED; Hard write error counter 
BYTE; Resource kind ( $DK... ) 

UNSIGNED; Max cluster avail ( " ) 

$NAMET; Source name (SPRM; net name ?) 
ULONG; Read activity counter 
BYTE; Sec. per cluster ( " ) 

UNSIGNED; Soft read error counter 
UNSIGNED; Soft write error counter 
BYTE; Physical sub-device number 
BYTE; Resource sub-kind ( $SKDS..) 

$TIME; Time of last access ( " ) 

ULONG; Write activity counter 
07 Return all single file resources 
06 Find named single file resource 
BYTE; Number of consumed incoming FAVs : 
023 Return resource utilization data 
BYTE; Number of free incoming buffers 
$IRUFLAGS; Flags (..$IRU.. ) : 

Resource Utilization Flags 
0010 Incomming file access supported 

: $IRUFLAGS 

0002 Incoming filehandler in use 

: $IRUFLAGS 

BYTE; Peak value of ($IRUTBUF-$IRUFBUF) : 
UNSIGNED; Nbr available memory sectors : 
BYTE; Peak value of $IRUG'FAV : 

BYTE; Nmbr of bufrs used for FAV markers 
UNSIGNED; Number of free FAV markers : 
004 Outgoing filehandler in use:$IRUFLAGS 
UNSIGNED; Overlay access counter 
UNSIGNED; Overlay load counter 
BYTE; ? 

BYTE; ? 

UNSIGNED; System table end address 


: D$FAR 
: D$FAR 
: D$FAR 
D$RMSGEN 

D$RMSCEN 

D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

$TNF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

D$RMSGEN 

D$RMSGEN 

$INF0ITEM 

D$RMSGEN 

$INF0ITEM 

$INF0ITEM 

D$RMSGEN 

D$RMSCEN 

D$RMSGEN 
$INF0ITEM 
$INF0ITEM 
$INFOITEM 
: $INF0ITEM 
$INF0ITEM 
:D$RMSGEN 
$INF0ITEM 
$INF0ITEM 
$INF0ITEM 
$INF0ITEM 
$INF0ITEM 
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fid $IRUSTFA 
fid $IRUTBUF 
fid $IRUTFAV 
fid $IRUWFAV 
val $IRUx 
val $IRUx 
far $IRWRT 
far $IRWRTCR 
abr ISAM 
val $ISPLOCK 
$ISPLOCK 
val $ISPMEM 
fid $ISPNAME 
fid $ISPSTAT 
fid $ISPUSER 
val $ISPVAL 
val $ISPVND 
val $ISTART! 
val $ITASKAL 
val $ITASKME 
val $ITASKND 
fid $ITOACm 
fid $ITOF AIR 
fid $ITOID 
fid $ITOMAXM 
fid $ITOMimi 
fid $ITONAME 
fid $ITOPRTY 
abr ITT 
far $IWRITE 


UNSIGNED; System table first address 
BYTE; Total number of incoming buffers 
BYTE; Total number of incoming FAVs 
BYTE; Num.incoming FAVs waiting on bufrs 
1 **UNUSED** was $IRUOVL : $IRUFLAGS 
1 (Pre-emptable overlay in use? was $IRUOVL) 
ISAM Random, Rewrite 
ISAM Sequential, Rewrite Current 
Indexed Sequential Access Method 
0200,Shared program locked into memory 

: $INF0ITEM.$ISPSTAT 

037 Shared Program PSK count : $TNF0ITEM 
$NAMET; ? : $INF0ITEM 

BYTE; ? : 

BYTE; ? 

21 Return all shared program variable 
20 Return named shared program variable 
000021 Return system startup time 
000011 Return all tasks 
000016 Return caller's task info 
000010 Find named task 
BYTE; Actual number of memory sectors 
BYTE; Father task identification 
BYTE; Task identification 
BYTE; ? 

BYTE; Minimum number of sectors 
$NAMET; Task name 
BYTE; Priority 
Invitations To Transmit 
ISAM Random, Write 


$INF0ITEM 
$TNFOITEM 
STNFOTTEM 
:$INF0ITEM 
: D$RMSGEN 


D$FAR 

D$FAR 


D$RMSGEN 

:D$RMSGEN 

D$RMSGEN 

$INF0ITEM 

$INF0ITEM 

D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

D$RMSGEN 

$INF0ITEM 

$INF0ITEM 

$INF0ITEM 

$INFOITEM 

$INF0ITEM 

$INF0ITEM 

$INFOITEM 

: D$FAR 


abr KDF 
abr KDS 
ufr $KEYCHAR 
ufr $KEYCLR 
ufr $KEYIN 
ufr $KEYINTO 
var KEYSECS$ 
abr KTT 
abr KWIC 


Keyword Definitions File 

? (Serial Printer attached to 8600 KDS Port 
Obtain One Translated Character : 

Clear the Keyin FIFO 

Accept a String From Keyboard to Memory : 
Timeout Controlled Version of KEYIN$ : 

EXTERN KEYSECS$ BYTE; Timeout for $KEYIN : 
Keyboard Translate Table 
Keyword in Context 


) 

D$UFRWS 

D$UFRWS 

D$UFRWS 

D$UFRWS 

D$UFRWS 


fid $LAC0DE 
fid $LARDR 
ufr $LBADD 
ufr $LBDEL 
ufr $LBFIND 
ufr $LBFREE 
ufr $LBGTLSN 
abr LCD 
val $LDEL 
val $LE0B 
val $LE0F 
val $LE0R 


[2561 BYTE; absolute code 
$ABSHDR; absolute header 
Add a Member to a Library 
Delete a Member From a Library 
Locate Library Member 

Find the First Free Sector in a Library 

Locate Library Member and Return LSN 

Liquid Crystal Display 

000377 Deleted data mark 

000375 End of block mark 

000373 End of file mark 

000372 End of record mark 


$LIBSECT0R 
$LIBSECT0R 
: D$UFRLIB 
: D$UFRLIB 
: D$UFRLIB 
: D$UFRLIB 
: D$RMS 

: D$RMS 
: D$RMS 
: D$RMS 
: D$RMS 
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abr LFDB 
val $LFLOKSP 
abr LFP 
abr LFST 
val $LFULOKS 
abr LGT 
val $LIBABSO 
val $LIBABSX 
fid $L1BDIR 
val $LIBDLL 
typ $LIBENTRY 
val $LIBEPN 
fid $LIBEPT 
fid $LIBFPAG 
val $LIBFREE 
val $LIBLim 
$LIBLim 
fid $LIBMAP 
fid $LIBMLEN 
fid $LIBMLEN 
fid $LIBMLMD 
fid $LIBMLMD 
fid $LIBMLSN 
fid $LIBMLSN 
fid $LIBMNAM 
fid $LIBMNAM 
val $LIBMT 
$LIBMT 
fid $LIBMTYP 
fid $LIBMTYP 
fid $LIBMVRN 
fid $LIBMVRN 
val $LIBMXPG 
$LIBMXPG 
fid $LIBNAA 
fid $LIBWPG 
fid $LIBNPAG 
fid $LIBPG1 
val $LIBPRIV 
val $LIBRELL 
fid $LIBSCODE 
typ $LIBSECTOR 
val $LIBSHAR 
fid $LIBSPID 
val $LIBT006 
val $LIBT008 
val $LIBT009 
val $LIBT010 
val $LIBT011 
val $LIBTBAD 
val $LIBTERM 
typ $LIBTYPE 
fid $LIBUCS 
fid $LIBXX 
abr LIFO 


Logical File Descriptor Block 
000 Lock specified FAV 
Logical File Pointer 
Logical File State Table 
001 Unlock specified FAV 
Length 

04 ”ABS m format overlay: $LIBTYPE 
03 "ABS" format executable:$LIBTYPE 
(16] $LIBENTRY; Library directory 
014 ARC dwn-line load frmt:$LIBTYPE 
STRUCT; Library Directory Entry 
0007 Entry point names : $LIBTYPE 
UNSIGNED; Entry Point Address 
UNSIGNED; First page 
0000 Free entry : $LIBTYPE 

2 Link to next directory sector 

: $LIBTYPE 

(64] BYTE; Primary MAP First byte 
UNSIGNED; Length in sectors 
UNSIGNED; Length in sectors 
UNSIGNED; Last modification date 
UNSIGNED; Last modification date 
UNSIGNED; First LSN 
UNSIGNED; First LSN 
$LNAMET; Member name 
$LNAMET; Member name 
0 Memory sector empty (not used) 

: $ABSHDR 

$LIBTYPE; Type of this member: 

BYTE; Type of this member ($LIBTYPE ?) 
BYTE; 3-bits version, 5-bits revision 
BYTE; 3-bits version, 5-bits revision 
57 $LIBPG1 Array Size, maximum nbr of 

: $ABSHDR 

UNSIGNED; Next Available Address 
BYTE; Number of Page Groups 
BYTE; Number of pages 
($LIBMXPG] Page Groups 

1 Memory sector private: $ABSHDR 

5 "REL m format : $LIBTYPE 

$RELC0DE; relocatable sector- type 
UNION; Library Sector Formats 

2 Memory sector shared : $ABSHDR 

$NAMET: Shared Program I.D. 

6 : $LIBTYPE 

8 : $LIBTYPE 

9 : $LIBTYPE 

10 : $LIBTYPE 

11 : $LIBTYPE 

3 Illegal mem sector type : $ABSHDR 

0001 End of library : $LIBTYPE 

ENUM Lib Directory Entry Types 
UNSIGNED; Two Bytes Used; 

[2] BYTE; ? 

Last In, First Out 


: D$RMSSPEC 


: D$RMSSPEC 

: D$RMSSTRUCT 
:D$RMSSTRUCT 
: $LIBSECT0R 
:D$RMSSTRUCT 
: D$RMSSTRUCT 
: D$RMSSTRUCT 
: $ABSHDR 
: $ABSHDR 
: D$RMSSTRUCT 

: D$RMSSTRUCT 
: $ABSHDR 
: $LIBENTRY 
: $MEMBER 
: $LIBENTRY 
: $MEMBER 
: $LIBENTRY 
: $MEMBER 
: $LIBENTRY 
: $MEMBER 

: D$RMSSTRUCT 
: $LIBENTRY 
: $MEMBER 
: $LIBENTRY 
: $MEMBER 
page groups | 
: D$RMSSTRUCT 
: $ABSHDR 
: $ABSHDR 
: $ABSHDR 
: $ABSHDR 
: D$RMSSTRUCT 
: D$RMSSTRUCT 
: $LTBSECT0R 
: D$RMSSTRUCT 
: D$RMSSTRUCT 
: $ABSHDR | 
: D$RMSSTRUCT 
: D$RMSSTRUCT 
: D$RMSSTRUCT 
: D$RMSSTRUCT 
: D$RMSSTRUCT 
: D$RMSSTRUCT 
: D$RMSSTRUCT 
: D$RMSSTRUCT 
: $ABSHDR 
: $ABSHDR 
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fid LINK 
val $LMCV 
abr LMT 
LMT 

typ $LNAMET 
fid $LNK1 
fid $LNK2 
sc $LOAD 
ufr $LOADREL 
sc $LOCKFAV 
ufr $LOCKRIH 
ufr $LOGCLR 
ufr $LOGGING 
ufr $LOGSET 
ddt LONG 
dew LOOP 
abr LOST 
abr LPS 
abr LR 
abr LRIO 
fid $LRLINE 
abr LRN 
fid $LROBJ 
fid $LRPID 
fid $LRXDEF 
fid $LRXEPN 
fid $LRXFER 
fid $LRXREF 
abr LSB 
abr LSN 
typ $LSN 
val $LSPC 
val $LST 
abr LSW 
fid LSW 
fid LSW 
abr LT 
val $LXX 


a $ENVT; Link to next entry : $ENVT 

DEFTNE'd 0371 Minimum control character value:D$RMS 
? DEF ECT.PS,2, ’Release LMT' 

? DEF ECLPS,8,’Patching — LMT Error' 

[81 CHAR; Library Member Name : D$RMS 

UNSIGNED; : $MAB 

UNSIGNED; : $MAB 

Load an Overlay : D$RMS 

Invoking the Relocating Loader : D$UFRRLD 

Lock/Unlock specified FAV : D$RMSSPEC I* 

RIM Lockout, Attempt to Open Pipe : D$UFRSYS 

Clear Logging Flags : D$UFRWS 

Determine if Logging is Active : D$UFRWS 

Set Logging Flags : D$UFRWS 

DASL scalar data type: 4 bytes signed 
Execute Substatements Until WHILE Expression = 0 
Locked Out Sector Table (actually CLUSTERS) I* 

Large Program Support 
Logical Record 
Logical Record Input/Output 

$RELLINE; Rel DEBUG line numbers sector :$LIBSECTOR 
Logical Record Number 

$REL0BJ; Rel object code sector : $LIBSECT0R 

$RELPID; Rel program ID sector : $LTBSECT0R 

$RELXDEF;Rel external definition sector :$LIBSECT0R 


$RELEPNS; Rel entry point member sector 

$RELXFER; Rel starting address sector 

$RELXREF; Rel external reference sector 

Least Significant Byte 

Logical Sector Number 

ULONG; Logical Sector Number 

0371 Space compression count follows 

0374 Special text mark 

Least Significant Word (16 bits) 

UNSIGNED; Least significant 16 bits 

UNSIGNED; 

Logical Tape 
0376 


$LIBSECT0R 

$LIBSECT0R 

$LIBSECT0R 


abr MAB Managed Access Block 

typ $MAB STRUCT; Managed File Access Block : D$FAR 

fid $HABID UNSIGNED; ID of entity being managed : $MAB 

fid $MABLGON UNSIGNED; Log-on pipe FAV : $MAB 

fid $MABLINK STRUCT, Links : $MAB 

fid $HABPRIV UNSIGNED; Private pipe (request+response)FAV : $MAB 

fid $HABRQIN UNSIGNED; Request init pipe FAV : $MAB 

fid $HABVAI UNSIGNED; User access token (UAT) ID : $MAB 

ufr $MAP4K System-IF, Allocate Memory For a PFDB : D$UFRSYS 
val MAXINT 077777 ,DEFINE'd : D$INC 

val MAXLONG 017777777777, DEFINE'd : D$TNC 

val $MAXNPW DEFINE'd 20 Max # of passwords in an env : D$RMS 

val $HAXPRBF 02 Max number of buffers allowed : D$FAR 

val MAXUNSIGNED 0177777, DEFINE'd : D$INC 

abr MB Mega-Byte 
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val 

val 

val 

val 

val 

val 

abr 


$MCDSOFF 
$MCDSON 
$MCDSTST 
$MCMDOFF 
$MCMDON 
$MCMDTST 
MEM 
typ $MEMBER 
sc $MEMCTL 
sc $MEMGET 
ufr$$MEMGET 
sc $MEMKEY 
sc $MEMMAP 
sc $MEMPROT 
sc $MEMREL 
ufr$$MEMREL 
abr MFD 

MFREMEM$ 
MGETCLR$ 
MGETFST$ 
MGETMEM$ 
MGETPAG$ 


Allocate 
Allocate 
Obtain a 


cr 
cr 
cr 

fid MILLISECONDS BYTE 
ufr $MLTPLY3 Numeric 
ufr $MMFREMEM 
ufr $MMGETCLR 
ufr $MMGETFST 
ufr $MMGETMEM 
ufr $MMGETPAG 
cr MMGINIT$ 
ufr $MMINIT 
ufr $MMRETPAG 
abr MPCA 
val $MPROTRO 
val $MPROTRW 
cr MRETPAG$ 
fid MSB 
fid MSB 
abr MSB 
var $MSG 
ufr $MSGC 
ufr $MSGCGET 
ufr $MSGCXO 
val $MSGLGT 
abr MSN 
MSN 
MSN 
abr MSW 
abr MIX 


4 Switch user task to single sector mode : D$RMSMEM 

3 Switch user task to dual sector mode : D$RMSMEM 

5 Test sector table mode : D$RMSMEM 

1 De-activate memory diagnostic task : D$RMSMEM 

0 Activate memory diagnostic task : D$RMSMEM 

2 Perform memory diagnostic : D$RMSMEM 

Memory 

STRUCT; Library Member Structure : D$UFRLIB 

Memory Control : D$RMSMEM 

Obtain a Private Memory Sector : D$RMSMEM 

Obtain A Physical Memory Sector : D$UFRSYS 

Obtain a Memory Sector Key : D$RMSMEM 

Map a Memory Sector into Logical Space : D$RMSMEM 

Change Memory Protection : D$RMSMEM 

Release a Memory Sector : D$RMSMEM 

Release a Physical Memory Sector : D$UFRSYS 

Managed File Descriptor 
Deallocate a Block of Memory 
Allocate a Cleared Block of Memory 
Free Space Block of Memory 
a Block of Memory 
Page of Logical Memory Space 
Eight millisecond counter ?? : $SYSTIME 

Unsigned 24-bit Multiplication : D$UFRNUM 

Deallocate a Block of Memory : D$UFRMEM 

Allocate a Cleared Block of Memory : D$UFRMEM 

Allocate Free Space Block of Memory : D$UFRMEM 

Allocate a Block of Memory : D$UFRMEM 

Obtain a Page of Logical Memory Space : D$UFRMEM 

Initialize Memory Management 

Initialize Memory Management : D$UFRMEM 

Release Page of Logical Memory Space : D$UFRMEM 

Multi-Port Communications Adapter 

0200 Set memory to read only : D$RMSMEM 

0 Set memory to read/write : D$RMSMEM 

Release a Page of Logical Memory Space 
BYTE; Most siginificant byte : ILONG 

BYTE; : ULONG 

Most Significant Byte 

EXTERN $MSG ($MSGLGT1 CHAR; Bfr for $PUT UFRs:D$RMS 
Err-Msg, Locate a Msg and Copy Into $MSG : D$RMS 
Err-Msg, Locate and Deliver a Message : D$UFRERR 

Err-Msg, Open and Pos the Command Lib : D$UFRERR 

81 Length of $MSG buffer : D$RMS 

Mapped Sector Number; index of PSKs in sector table 

Each task has a sector table listing 16 PSKs 
MSN 0 initially always contains the PSK of the PCR 
Most Significant Word (16 bits?) 

? 
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abr NAK Negative Acknowledgement 

fid NAME $ENVN: Environment name : $ENVT 
fid $NAME $NAMET; Name : $NAMEEXT 
fid $NAME $NAMET; Name : $NAMEEXTENV 
typ $NAMEEXT STRUCT; Name, and Extension : D$RMS 
typ $NAMEEXTENV STRUCT; Name, Extension, and Environment : D$RMS 
typ $NAMET [12] CHAR; File Name Type : D$RMS 
abr NBR Number 

val $NEWFILE 0001 : $ACC0DES : D$RMSI0 
ufr $NEWPCR Create New PCR for Independent Task : D$UFRENV 
abr NID Next ID 

val NIL 0 DEFINE'd : D$INC 
val $NL 0243 Advance to new line : D$RMSWS 
val $N0 000116 1 N 1 : D$PCR 
val $NOADR 0177777 Indicate "NO ADDRESS GIVEN 0 : D$RMS 


typ $NODEFLAGS Node Flags in $INF0 : D$RMSGEN 
val $NOPSK 0377 DEFINE'd Indicate "No PSK given" : D$RMS 
val $NQDQ 0307 $NQDQ error class : D$ERRNUM 


ufr $NQDQBLD Build a Message Block : D$UFRNQDQ 
ufr $NQDQCHK Check Limited Request : D$UFRNQDQ 
fid $NQDQCNT BYTE; Item count : $NQDQMSG 


ufr $NQDQENL Request a Limited Enqueue : D$UFRNQDQ 
ufr $NQDQENQ Enqueue on a Resource : D$UFRNQDQ 
typ $NQDQITEH [6] BYTE; NQDQ List Item : D$UFRNQDQ 
ufr $NQDQLGF Disconnect from the System : D$UFRNQDQ 
ufr $NQDQLGN Connect to the System : D$UFRNQDQ 
fid $NQDQLIST [0] $NQDQITEM; Item list ; $NQDQMSG 


typ $NQDQMSG STRUCT; NQDQ Message : D$UFRNQDQ 
ufr $NQDQREL Release a Resource : D$UFRNQDQ 
ufr $NQDQRST Reset the Controller 4-byte Counters : D$UFRNQDQ 
ufr $NQDQSTA Acquire Controller Statistics : D$UFRNQDQ 
typ $NQDQSTAT STRUCT; NQDQ Statistics : DSlJFRNQDQ 
ufr $NQDQSTP Terminate an In-Prog Limited Enqueue : D$UFRNQDQ 
ufr $NQDQWAT Wait for a Limited Enqueue Request : D$UFRNQDQ 
val $NRPRI0R 8 Number of priority levels : D$RMSPR0G 
val $NS 0233 New string address follows ((loc)) : D$RMSWS 


fid $0 $0PENPT; ; $0PENPTS 

abr OBJ Object File Output or Input (compilers) 

val $OHBYPAS 007 Open mode: Bypass passwrd/security checks:D$RMS 

val $OMCRECK 005 Open mode; Disk structure check access : D$RMS 

val $OMCREAI 004 Open mode: Create a new file : D$RMS 

val $0MEXCL 002 Open mode: Exclusive read/write access : D$RMS 

val $0MPREP 003 Open mode: Open or create file : D$RMS 

val $OHREAD 000 Open mode: Shared read-only access : D$RMS 

val $OMREPAR 006 Open mode: Disk structure repair access : D$RMS 

val $OMSRARE 001 Open mode: Shared read/write access : D$RMS 

ufr $OPEN Get 0PENPT Link Set to Env Data Area : D$RMS 

sc $OPENENV Open a File : D$RMSIO 

typ $OPENPT STRUCT; Open Parameter Table : D$RMS 

typ $OPENPTS UNION; $0PENENV in $0MCHECK,$0MREPAR Modes :D$RMSI0 
val $OPTFDEF 01 Returned if option given : $OPTION : D$RMS 

fid $OPTFLG Option flag bits : $0PTI0N 


val $OPTFQOK 004 Option value may be quotd:$0PTI0N.$0PTFLG:D$RMS 


Document 61585-01; DASL DICTIONARY 04Aug84: 


WORDS 


31 







Datapoint Confidential Information - see title page 


val $OPTFVAL 
typ $OPTION 
fid $OPTMAX 
fid $OPTSON 
fid $OPTSTR 
typ $OPTTAIL 
val $OPTTERM 
fld$$OPTTERM 
fid $OPTTOT 
fid $OPTVAL 
val $OPTVCLR 
val $OPTVSET 
fid $OTBLKL 
fid $OTCODE 
fid $OTENV 
fid $OTFEOFB 
fid $OTFID 
fid $OTFILE 
fid $OTFWC 
fid $OTFLEN 
fid $OTFMT 
fid $OTRFDLGT 
fid $OTHFDLSN 
fid $OTIDLSN 
fid $OTKIND 
fid $OTNID 
fid $OTONOS 
fid $OTPFDB 
fid $OTRID 
fid $OTRTRY 
fid $OTSQL 
fid $OTSUBK 
fid $OTTIME 
fid $OTXl 
fid $01X2 


2 Returned if value given : $OPTION : D$RMS 
STRUCT; $SCANFOS Option Specification : DJ>RMS 
BYTE; Option value maximum length : $OPTTON 
[$SONT] CHAR; Option field name : $OPTION 
(0] CHAR; Option value string : $0PTT0N 
STRUCT; $SCAN0S Option List Terminator : D$RMS 
0377, DEFINEM : D$RMS 
BYTE; $0PTTERM (not $$) is defined 0377 : $0PTTAIL 
BYTE; Option global total count : $0PTTAIL 
BYTE; Option value length : $OPTION 
0377 Option not given : $0PTT0N : D$RMS 
0376 Option had no value : $0PTI0N : D$RMS 
UNSIGNED; 0,Maximum block length : $0PENPTS 
BYTE; 0,Access code and file created flag :$0PENPT 
a CHAR; Pointer to ENV data name or entry :$0PENPT 
BYTE; 0,End-of-File byte pointer :$0PENPT 
UNSIGNED; 0,File identification FDT-PCN :$0PENPT 
a $NAMEEXT; I,Pointer to file name and ext :$0PENPT 
UNSIGNED; B,Space increment in sectors, :$0PENPT 
$LSN; B,End-of-File location LSN, :$0PENPT 
ENUM(...); B,Format ( $FFMT...) :$0PENPT 
UNSIGNED; Nbr of hash file directory secs :$0PENPTS 
BYTE; LSN of first HFD sector : $0PENPTS 
BYTE; 0,Disk LSN of identification sector :$0PENPTS 
ENUM(...); 0,Resource Kind ( $DK...) : $0PENPT 
UNSIGNED; ? : $0PENPT 
BYTE; 0,Optimum number of sectors to do : $0PENPT 
a $PFDB; I,Pointer to PFDB, : $OPENPT 
BYTE; 0,Resource ID ARV serial number : $0PENPT 
BYTE; I,Maximum number of retries : $0PENPTS 
BYTE; B,Security level : $0PENPT 
BYTE; 0,Resource sub-kind ( $SK...) : $0PENPT 
$TIME; 0,Time of creation in binary : $0PENPT 
[9] BYTE; : $0PENPTS 
[8] BYTE; : $0PENPTS 


abr PAB 
val $PABASS 
typ $PABENTRY 
val $PABF000 
val $PABF001 
val $PABFCOMN 
val $PABFDATA 
typ $PABFLAGS 
val $PABFPS 
$PABFPS 
val $PABFREL 
val $PABFTP 
$PABFTP 
fid $PABTBADR 
fid $PABTBFLG 
fid $PABTBLGT 
fid $PABTBNAM 
abr PAC 


Program Address Blocks 
0200 PAB Assigned : $PABFLAGS 

STRUCT; Rel. Prgm ID Sector PAB Entry 
0001 Unassigned : $PABFLACS 

0002 Unassigned : $PABFLAGS 

0010 Common PAB : $PABFLAGS 

004 Data PAB : $PABFLAGS 

Relocatable Prgm ID Sector PAB Flags 
0020 PAB must not cross page boundry 

: $PABFLAGS 

0100 PAB is Relocatable : $PABFLAGS 
0040 PAB must start on page boundry 

: $PABFLAGS 

UNSIGNED; PAB address 

$PABFLAGS; PAB Flags ( $PAB...) 

UNSIGNED; PAB length 

(81 CHAR; PAB name 

Packets 


D$RMSSTRUCT 

D$RMSSTRUCT 

D$RMSSTRUCT 

D$RMSSTRUCT 

D$RMSSTRUCT 

D$RMSSTRUCT 1* 

D$RMSSTRUCT 

D$RMSSTRUCT 

D$RMSSTRUCT 

D$RMSSTRUCT 
: $PABENTRY 
: $PABENTRY 
: $PABENTRY 
: $PABENTRY 
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typ $PACKPW 
fid PAGE 
ufr $PAKPW 
fid $PBLKL 
fid $PBUFL 
val $PCFREAD 
fid $PCLSN 
abr PCN 
abv PCR 
typ (PCR) 
(PCR) 
(PCR) 
(PCR) 

var $PCR1STP 
var $PCRABTF 
val $PCRAFGA 
var $PCRBJCE 
var $PCRBJCM 
var $PCRBJCN 
val $PCRCFAC 
val $PCRCFCR 
val $PCRCFFO 
val $PCRCFNA 
val $PCRCFRS 
var $PCRCHND 
var $PCRCHNF 
var $PCRCUNV 
var $PCRCIF2 
var $PCRCLEL 
var $PCRCMDE 
var $PCRCMDF 
var $PCRCMDH 
var $PCRCMDN 
var $PCRCPFL 
var $PCRCWHL 
var $PCRCWHR 
var $PCRCWVL 
var $PCRCWVU 
val $PCRDF2F 
$PCRDF2F 
val $PCRDFBJ 
val $PCRDFCF 
val $PCRDFCW 
val $PCRDFER 
val $PCRDFFK 
val $PCRDFMC 
val $PCRDFHL 
$PCRDFML 
val $PCRDFNC 
val fPCRDFNR 
val $PCRDFNS 
$PCRDFNS 
val $PCRDFm 
val $PCRDFSO 
val $PCRDFWI 


[6] BYTE; Packed Password : D$RMS 

BYTE; page number : $PFDBBUF 

Pack ACSTT Storing Tnto Password : OSlJFRENV 

UNSIGNED; Block length in bytes:PIPE,TAPE : $PFDB 
[1] $PFDBBUF; Start of buffer list : $PFDB 

000000 Read a block of cards : D$RMST0 

$LSN; Logical sector number:DISK only : $PFDB 

Physical Cluster Number ? 

Program Communication Region 

EXTERNALLY defined structure of variables : D$PCR 

/* See TYPE Section PCR for all $PCR... stuff */ 

a BYTE; Adr of 1st byte of PCR fixd data area:D$PCR 
Abort reason flags : PCR : D$RMS 

000001 General abort : PCR : D$RMS 

$ENVN; BJF "WAIT" module extension : D$PCR 

$LNAMET; BJF "WAIT" module member name : D$PCR 

$NAMEEXT; BJF "WAIT" module name/ext : D$PCR 

000001 Chaining active : D$PCR 

000002 Next command line ready : D$PCR 

000004 Chain file open : D$PCR 

010 "No Abort" on $ERR0R exit : $PCRCHNF : D$PCR 
020 CHAIN File has been Restarted :$PCRCHNF :D$PCR 
a $NAMEEXTENV; Ptr to CHAIN cmd fname/ext:env:D$PCR 
Chaining flags : D$PCR 

13] BYTE; Adr of entry vector; CHAIN routine :D$PCR 
SETW(): Second Command Interpreter Flags : D$PCR | 

a CHAR; Command line syntax error location : D$PCR 

$ENVN; Env'ment name of command executing : D$RMS 

Command interpreter flags : D$PCR 

$LNAMET; Member Name being executed,or spaces:D$PCR 
$NAMEEXT; Filename/ext of comd executing : D$RMS 

BYTE; Current printer form length : D$PCR 

BYTE; Current Window Left Horizontal : D$PCR 

BYTE; Current Window Right Horizontal : D$PCR 

BYTE; Current Window Lower Vertical : D$PCR 

BYTE; Current Window Upper Vertical : D$PCR 

0100000 Secondary Cl flags available 

: $PCRCMDF : D$PCR 
000400 Batched job facility is active : D$PCR 

000040 Reset char font and translate table : D$PCR 
020000 Current Window data valid :$PCRCMDF : D$PCR 
000002 Display all heading records : D$PCR 

000020 Abort GETLINE$, KEYIN$ on function key:D$PCR 
04000 CMD Line was Menu-Generated :$PCRCMDF :D$PCR 
040000 Menu line exists; 

$PCRCLEL points to New Line : $PCRCMDF : D$PCR 

0100 No "STOP" bar;clears help wndow:$PCRC-MDF:D$PCR I 
000001 Inhibit signon/heading display : D$PCR 

010000 No STOP bar - does not clear window | 

: $PCRCMDF : D$PCR 
000010 No workstation available : D$PCR 

000004 Cmd int entered from signon program : D$PCR 
02000 Standard window is active : $PCRCMDF : D$PCR 
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val $PCRDFWW 001000 This is version II command int : D$PCR 

val $PCRDFWW 01000 Standard window was active : $PCRCMDF: D$PCR 

var $PCREEXT *** File extension *** NOT TN DASL 
val $PCREFBC 000001 $ERRC (BC) error code exists : D$PCR 

val $PCREFCI 040 Error Msg is in C.I Msg Member :$PCRERRF: D$PCR 

val $PCREFFF 000004 File in error flag : D$PCR 

val $PCREFNN 000010 Net/node info present : D$PCR 

val $PCREFRF 000002 Recursion flag : D$PCR 

val $PCREFTS 020 Error Message is on top of Command Stack 

$PCREFTS : $PCRERRF : D$PCR 

var $PCREHSI *** File HSI *** NOT IN DASL 
var $PCRENAM *** File name *** NOT IN DASL 
var $PCRENET *** Net containing node *** NOT IN DASL 


var $PCREN0D *** Node containing resource *** NOT IN DASL 
var $PCRERES *** Resource containing file *** NOT IN DASL 


var $PCRERRF Command Int $ERR0R reason flags : D$PCR 

val $PCRF2AW 1 Task Running under Attached W/S Control 

$PCRF2AW : $PCRCIF2: D$PCR 

var $PCRFIEI [0] BYTE; $SFITABLE Start of area : D$PCR 

var $PCRFOF [0] BYTE; First byte of fixed PCR area : D$PCR 

var $PCRFVCI UNSIGNED; Locked FAV fro Command Interpreter: D$PCR 

var $PCRFVUP UNSIGNED; Locked FAV for User Program : D$PCR 

var $PCRKXT (128] CHAR; Keybd translate table; this WS : D$PCR 

val $PCRLFAC 000001 Logging active : D$PCR 

val $PCRLFEO 000004 Log only error messages : D$PCR 

val $PCRLFFO 000020 Log file open : D$PCR 

val $PCRLFHR 000040 HD/RU before each logged message : D$PCR 

val $PCRLFNI 000010 Log note display inhibited : D$PCR 

val $PCRLFSP 000002 Logging suspended : D$PCR 

var $PCRLOGD a $NAMEEXTENV; Pntr to LOG Cmd fname/ext:env : D$PCR 

var $PCRLOGF Logging flag : D$PCR 

var $PCRLOGV [3] BYTE; Addr of entry vector; LOG routine : D$PCR 

var $PCRMIND [0] BYTE; Default bottom UET/CMD stack addr : D$PCR 

var $PCRHINP a BYTE; Minimum usable PCR location : D$PCR 

var $PCRMLGF UNSIGNED; "LOGOFF" : D$PCR 

var $PCRMLGN UNSIGNED; "LOGON" : D$PCR 

var $PCRHLRC UNSIGNED; Check bits for Control Area : D$PCR 

var $PCRMMAL UNSIGNED; "MAIL"(optional) : D$PCR 

var $PCRMMSG UNSIGNED; "MESSAGE" member for Cmd Int : D$PCR 

var $PCRMNXL UNSIGNED; "NEXTLINE" : D$PCR 

var $PCRMRET UNSIGNED; "RETURN" : D$PCR 

var $PCRMRNL UNSIGNED; "RUNLINE" : D$PCR 

var $PCRNO CHAR; DEFINE($N0, f N’) : D$PCR 

var $PCRPSKA BYTE; Current number of PSKs allocated : D$PCR 

var $PCRPSKM BYTE; Maximum number of PSKs allowed : D$PCR 

var $PCRSECF [0] BYTE; First byte of PCR sector : D$PCR 

var $PCRSTAI [38] BYTE; State storage area : D$PCR 

var $PCRSTTE UNSICNED; State flags : D$PCR 

var $PCRTOP (0] BYTE; First byte after top of PCR : D$PCR 

var $PCRYES CHAR; DEFINE($YES» *Y') : D$PCR 

abr PDAM Physical Device Access Module 

abr PDC Packed Decimal Code 

fid $PDONE BYTE; Number of sectors done : $PFDB 

abr PFDB Physical File Descriptor Block 

typ $PFDB STRUCT; Physical File Descriptor Block : D$RMS 
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typ $PFDBBUF STRUCT; PFDB Buffer List Entry : D$RMS 

fid $PFVID UN STONED; File access variable ID : $FTLESTBI, 

fid $PFVTD UNSIGNED; 16-bit FAV Tdentification : $PFDR 

fid $PFVID UNSIGNED; 16-bit FAV identifier : $SECURETBL 

abr PIO Parallel I/O 

var PIPEDIO$ EXTERN PIPEDIO$ BYTE; Driver function : D$UFRWFIO 
PIPEDIO$ WFIO to Pipe Double Buffered instead of to disk 
sc $PIPEGEM Create a Pipe Resource ; D$RMSIO 

typ $PIPEGENPT STRUCT; Pipe Generation Parameter Table : D$RMSIO 

fid $PIPEIAC $ACCODES; Initial access code : $PIPEGENPT 

var PIPEIO$ EXTERN PIPEIO$ BYTE; Driver function : D$UFRWFIO 

PIPEIO$ WFIO to Pipe instead of to disk 
fid $PIPEKEY $FILEKEYS; Keys : $PIPEGENPT 

fid $PIPENAM $NAMET; Name : $PIPEGENPT 

fid $PIPETERM BYTE; Key list terminator : $PIPEGENPT 

sc $PIPEUSE Check Local Pipe-in-use Status : D$RMSIO 

var PIPTIMO$ EXTERN PIPTIMO$ BYTE; Driver ? : D$UFRWFIO 

PIPTIMO$ Pipe Timeout Byte (Not Driver?) 
fid $PMXBF BYTE; Maximum number of buffers : $PFDB 

abr PNTR Pointer 

abr POS Position 

abr PRI Primary 

val $PRIMAX 007 "LOWEST" priority level : D$RMSPR0G 

val $PRINORM 004 "NORMAL” priority level ($NRPRI0R/2):D$RMSPR0G |* 
abr PRIVP Private Response Pipe 

abr PRN Physical Record Number 

abr PRNTR Printer 

var PRTDIO$ EXTERN PRTDI0$ BYTE; Driver function : D$UFRWFI0 

PRTDIO$ WFIO to Printer Double Buffered instead of to disk 
var PRTIO$ EXTERN PRTT0$ BYTE; Driver function : D$UFRWFI0 

PRTIO$ WFIO to Printer instead of to disk 

fid PSK BYTE; PSK or -1 : $PFDBBUF 

abr PSK Physical Sector Key; Points to 4K Byte mem sector 

fid $PSUBF BYTE; Sub-functon code: TAPE : $PFDB 

val $PSUFCNV 0200 Convert mode flag, Write (pack) or 

$PSUFCNV Read (unpack) 7-track tape data : D$RMSI0 

val $PSUFMSK 0177 $PSUBF function mask : D$RMSI0 

fid $PSYSCODE BYTE; DIRECT RIM system code : $PFDB 


fid $PTASKID 

BYTE; 

DIRECT RIM task ID 

: $PFDB 

val $PTFBSPB 

003 

Backspace to previous block 

D$RMSI0 

val $PTFBSPF 

005 

Backspace to previous TAPE-MARK 

D$RMSI0 

val $PTFERAS 

002 

Erase some (3.5 inches) tape 

D$RMST0 

$PTFERAS 

Write 

extended inter-record gap 

D$RMSI0 |* 

val $PTFFSPB 

002 

Forward space (skip)to next block 

D$RMSI0 

val $PTFFSPF 

004 

Forward space to next tape-mark 

D$RMSI0 

val $PTFRDRV 

001 

Block read reverse 

D$RMSI0 

val $PTFREAD 

000 

Block read 

D$RMSI0 

val $PTFRWND 

006 

Rewind the tape, GO READY 

D$RMSI0 

val $PTFULOD 

007 

Rewind and unload the tape 

D$RMSI0 

val $PTFWRIT 

000 

Block write 

D$RMSI0 

val $PTFWRTM 

001 

Write a tape-mark 

D$RMSI0 

fid $PTIMER 

BYTE; 

Timeout count:PIPE,DIRECT RIM 

: $PFDB 

fid $PTODO 

BYTE; 

Number of sectors to do 

: $PFDB 

abr PTR 

Pointer 



val $PTRFLDV 66 DEFINE’d Printer Form Length Default Value:D$PCR 
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ufr $PVTELGX 
ufr $PUTELOG 
ufr $PUTERP 
ufr $PVTERPX 
ufr $PUTERRR 
ufr $PUTERRX 
ufr $PUTLINE 
ufr $PUTLINX 
ufr $PVTLNP 
ufr $PVTLNPX 
ufr $ PUTLOG 
ufr $PUTLOGX 
ufr $PUWOP 
ufr $PVTNOPX 
ufr $PUTNOTE 
ufr $PUTNOTX 
var PUTWSMD$ 
abr PWS 


Log Message 

Home-Down Roll, Log Error Message 
Homo-Down Roll, Log/Display $MSC, Error 
Log/Display from $MSG, Error 
Home-Down Roll, Log/Display, Error 
Log/Display Message, Error 
Home-Down Roll, Display Message 
Display Message 

Home-Down Roll, Display from $MSG 
Display from $MSG 
Home-Down Roll, Log Message 
Log Message 

Home-Down Roll, Log/Display from $MSG 
Log/Display from $MSG 
Home-Down Roll, Log/Display Message 
Log/Display Message 

BYTE EXTERN; $PUTx UFRs, WSIO mode($WSM..) 


D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 

D$UFR 


abr RAM 
def RASLEND$ 
def RASLRES$ 
val $RCEPN 
val $RCEXDEF 
val $RCEXREF 
abr RCL 
val $RCLINEN 
val $RCOBJ 
val $RCPID 
val $RCXFER 
val $RD 

ddw RECURSIVE 
abr REL 
typ $RELCODE 
typ $RELEPN 
fid $RELEPNAME 
fid $RELEPNMBR 
fid $RELEPNMFLG 
fid $RELEPNMLSN 
fid $RELEPNMSKP 
typ $RELEPNS 
sc $RELFAVS 
fid $RELFWDFLAG 
fid $RELFWDOFFS 
fid $RELFWDPAB 
fid $RELFWDSKIP 
typ $RELLINE 
typ $RELLNENT 
typ $RELOBJ 
typ $RELPID 
fid $RELSECTOR 
typ $RELXDEF 
typ $RELXDENT 
typ $RELXFER 


Random Access Memory 

Turn off RASL Traps in program running RASL :D$I 
Invoke the DASL Debugger : D$I 
0206 Entry pnt mem in Rel Lib:$RELC0DE:D$RMSSTRL 
0203 External Definitions : $RELC0DE : D$RMSSTRt 
0204 External References : $RELC0DE : D$RMSSTRl 


Remote Connection Link 


0207 DEBUG Information : $RELC0DE : D$RMSSTRl 

0202 Object Text : $RELC0DE : D$RMSSTRl 

0201 Program Identification:$RELC0DE : D$RMSSTRl 
0205 Trnasfer Address :$RELC0DE : D$RMSSTRl 

0203 Roll screen down one line : D$RMS 

Specifies Function may be Called Recursively 
Relocatable 


BYTE; Relocatable Sector Type Codes : 

UNION; Rel Entry Point Member Entry 

[8] CHAR; Normal entry point name 

STRUCT; New program entry 

CHAR; New program flag 

UNSIGNED; Program LSN 

[5] BYTE; 

[31] $RELEPN;Rel Entry Point Mbr Seer: 

7 

BYTE; forward reference flag 
UNSIGNED; Offset 
BYTE; PAB 
[41 BYTE; 

[841 $RELLNENT;Rel DEBUG Line Nbrs Sec 
Rel DEBUG Line Number Entry : 

[255] BYTE; Rel Object Code Sector 
Rel Program ID Sector : 

Rel sectors 

[221 $RELXDENT;Rel Extern Def Sector : 
Rel External Definition Entry : 

Rel Starting Address Sector : 


D$RMSSTRt 
D$RMSSTRl 
: $REL£ 
: $RELE 
: $RELE 
: $RELF 
: $RELE 
D$RMSSTRl 
: D$RMSSI 
: $RELXRf 
: $RELXRI 
: $RELXRT 
: $RELXRI 
:D$RMSSTRl 
D$RMSSTRl 
D$RMSSTRl 
D$RMSSTRt 
: $LIBSEC1 
D$RMSSTRt 
D$RMSSTRl 
D$RMSSTRl 
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fid $RELXFEROFFS UNSIGNED; Offset 
fid $RELXFERPAB BYTE; PAB 

typ $RELXREF [31] $RELXRENT: Rel Extern Ref Entry 
typ $RELXRENT UNION; Rel External Reference Entry 
fid $RELXREXNAM [81 CHAR; name 


fid 

sc 

sc 

abr 

dew 

sc 

sc 

sc 

sc 

sc 

val 

abr 

abr 

fid 


$RELXRFWD 
$RENENV 
$REOPEN 
REQ 

RESULT 
$RFI 
$RFIAKS 
$RFIDKS 
$RFIFK 
$RFIKKS 
$RFILKS 
$RFITRC 
RI 
RIM 

$RLADDR 
typ $RLDEF 
fid $RLDEFAD 
fid $RLDLIM 
fid $RLDNAME 
fid $RLDVAL 
val $RLFEXDO 
fid $RLFLAG 
typ $RLFLAGS 
val $RLFNSVD 
val $RLFRFUL 
val $RLFTOPD 
val $RLFUNDF 
fid $RLLIM 
fid $RLLSN 
typ $RENAME 
fid $RLNEOFFS 
fid $RLNEPAB 
typ $RLPARAM 
fid $RLPFDB 
typ $RLREF 
fid $RLREFAD 
fid $RLRLIM 
fid $RWDRTN 
typ $RLUDRTNF 
fid $RLUMEMA 
typ $RLUMEMAF 
abr RMS 
ufr $RMSMSG 
abr ROM 


STRUCT; Forward reference definition 
Change a Disk File Name 
Reopen a File With New Passwords 
Request 

Assign a value to the RESULT of a 
DASL Macro for defining Macros 
Return From Abort Key Seq Interrupt 
Return from $TRAPDKS Interrupt 
Return from $TRAPFK Interrupt 
Return From $TRAPKKS Interupt 
Return from LOG-OFF Trap Seq Interupt 
0200 $RFI trap remain clear bit 


: $RELXFER 
: $RELXFER 

dSrmsstruct 

D$RMSSTRUCT 
: $RELXRENT 
: $RELXRENT 
: D$RMSI0 
: D$RMSI0 


function. 

D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 
D.$RMSPR0G 
D$RMSPR0G 
D$RMSPR0G 


$RLFLAGS 


$RLFLAGS 

$RLFLAGS 

$RLFLAGS 

$RLFLAGS 


Receiver Inhibited 
Resource Interface Module 
a BYTE; Starting load address 
STRUCT; Rel Loader Definition Structure 
a $RLDEF; User definition table address 
a $RLDEF; User def table limit address 
$RLNAME; Name 
UNSIGNED; Value 
004 External definition full 
$RLFLAGS; Load control flag 
Relocatable Loader Flags 
001 Supress Definition storage 
010 Reference work area full 
002 Top-down memory load 
020 Undefined symbol encounterd: 
a BYTE; Limiting load address 
UNSIGNED; Member logical sector number 
[8] CHAR; Relocatable Loader Name Type 
UNSIGNED; Line number offset 
BYTE; Line number PAB 

STRUCT; Relocatable Loader Parameters : 
a $PFDB; Phys file descriptor block adr : 

UNSIGNED; Rel Loader Reference Work Area : 
a $RLREF; User reference work area adr : 
a $RLREF; Limit adr of ref work area : 

a $RLUDRTNF; User defined symbol routine : 

(); Relocatable Loader User Routine Type : 
a $RLUMEMAF; User memory allocatn routine: 

(); Relocatable Loader User Routine Types: 

Resource Management System 
Err-Msg, Return RMS Message 
Read Only Memory 

fid $RPDPABTABLE [16] $PABENTRY; PAB table 
fid $RPDPGMNAM $LNAMET; Program name 
fid $RPDXDPTR UNSIGNED; External definition pointer 
abr RSP in NQDQ ? 

RSP context functions: 16 error during $SECW to RSP ? 

typ $RSRCFLAGS $INF0 Resource Flags : D$RMSGEN 


$RLPARAM 
D$UFRRLD 
$RLPARAM 
$RLPARAM 
: $RLDEF 
: $RLDEF 
D$UFRRLD 
$RLPARAM 
D$UFRRLD 
D$UFRRLD 
D$UFRRLD 
D$UFRRLD 
D$UFRRLD 
$RLPARAM 
$RLPARAM 
D$UFRRLD 
$RELLNENT 
$RELLNENT 
D$UFRRLD 
$RLPARAM 
D$UFRRLD 
$RLPARAM 
$RLPARAM 
$RLPARAM 
D$UFRRLD 
$RLPARAM 
D$UFRRLD 

D$UFRERR 

$RELPID 

$RELPID 

$RELPID 
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val $RU 

0202 Roll screen 

up one 

line 

: D$RMSWS 

ufr$$RUN 

Interface to $RUN 

System 

Call 

: D$UFRWS 

sc $RUN 

T.oad and Run a Program 


: D$RMSPROG 

abr RX 

Receive 




fid $RXDENAME 

[8] CHAR; name 



: $RELXDENT 

fid $RXDEPAB 

BYTE; PAB 



: $RELXDENT 

fid $RXDEVAL 

UNSIGNED; value 



: $REI.XDENT 


abr 

SC 


System 

Call 



val 

SC$BASESET 12 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$CLOSE 

25 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$CLOSEAL 47 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$DISCONT 60 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$DONATFV 63 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$ERROR 

43 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$EXIT 

42 

System 

Cal 1 

ErrNum 

D$ERRNUM 

val 

SC$FILES 

29 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$F0RMAI 

23 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$GETIME 

32 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$GLUTEN 

34 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$INFO 

35 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$LOAD 

45 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$LOCKFAV 64 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$HEHCTL 

15 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$MEMGET 

8 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$HEMKEY 

11 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$MEMHAP 

10 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$MEMPROT 13 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$MEHREL 

9 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$OPENENV 24 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$PIPEGEN 36 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$PIPEUSE 61 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$RELFAVS 65 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$RENENV 

28 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$RE0PEN 

30 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$RFI 

41 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$RUW 

44 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SECCHK 

21 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SECE0F 

26 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SECR 

16 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SECR0 

17 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SECURE 

27 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SECW 

18 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SECHAIT 20 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SECWO 

19 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SETIME 

33 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SEmAX 

75 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SETUIN 

14 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SETPRI 

46 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SETSQL 

38 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SIGNON 

73 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$SINDEP 

48 

System 

Call 

ErrNum 

DSERRNUM 

val 

SC$SLOCAL 

49 

System 

Call 

ErrNum 

D$ERRNUM 

val 

SC$STOPIO 

37 

System 

Call 

ErrNum 

D$ERRNUM 
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val SC$TASKCTL 
va1 SC$TIMER 
va1 SC$TRAPSET 
val SC$UCSCRK 
val SC$UCSDEL 
val SC$UCSGEN 
val SCSUCSSIG 
val SC$UCSWAIT 
val SC$USRABN 
val SC$WAITIO 
val SC$WAITIOS 
val SC$WCONFIG 
val SC$WSCTL 
val SC$WSGETCH 
val SC$WSIO 
val SC$WSTATUS 
val SC$WSWAIT 
ufr $SCANCFG 
ufr $SCANFLS 
ufr $SCANFS 
ufr $SCANHSI 
ufr $SCANNB 
ufr $SCANOS 
var SCANPTR$ 
ufr $SCANSYM 
ufr $SCANWRD 
abr SCF 
typ $SCFMSCODES 
abr SDF 
ufr $SDTVID3 
abr SEC 
val $SECACT 
val $SECBSD 
sc $SECCHK 
sc $SECEOF 
val $SECERR 
val $SECFLOK 
val $SECFLOK 
fid SECONDS 
sc $SECR 
sc $SECRO 
val $SECSS 
typ $SECSTAT 
val $SECSTOP 
val $SECTMD 
sc $SECURE 
typ $SECURETBL 
sc $SECW 
sc $SECWAIT 
sc $SECWO 
val $SECWP 
dim SET 
ufr $SETABTF 
fid $SETADJ 
fid $SETDIR 


55 

System 

Call 

ErrNum 

39 

System 

Call 

ErrNum 

40 

System 

Call 

ErrNum 

53 

System 

Call 

ErrNum 

54 

System 

Call 

ErrNum 

50 

System 

Call 

ErrNum 

51 

System 

Call 

ErrNum 

52 

System 

Call 

ErrNum 

74 

System 

Call 

ErrNum 

22 

System 

Call 

ErrNum 

66 

System 

Call 

ErrNum 

0 

System 

Call 

ErrNum 

4 

System 

Call 

ErrNum 

2 

System 

Call 

ErrNum 

5 

System 

Call 

ErrNum 

1 

System 

Call 

ErrNum 

3 

System 

Call 

ErrNum 


D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNIJM 
D$UFRSCAN 
: D$RMS 
D$UFRSCAN 
D$UFRENV 
D$UFRSCAN 
: D$RMS 
D$UFRSCAN 
D$UFRSCAN 
D$UFRSCAN 


Read and Scan User Conf File 
Scan File Specs According to Table 
Scan a File Specification : 

Compress HSI 

Scan to Next Non-Blank : 

Scan Options Specification 
EXTERN SCANPTR$ a CHAR; ? : 

Cmdlnt, Scan a Symbol : 

Cmdlnt, Scan Two Word Lists for Matches: 

System Configuration File 
ENUM(...); FAR Exception Exit Codes 
Subrecord Definitions File 
Numeric, Signed 24-bit Division 
Sector 

002 Operation still in progress: $SF,CSTAT : 

0200 Resource is a byte strg dev:$SECSTAT 
Check Operation Status 
Obtain or Set End Of File Location 
004 Soft recoverable error : $SECSTAT 

020 FAV locked across CLOSEALLs ($L0CKFAV) 

: $SECSTAT : 

$TIME; Seconds since beginning of 1901 : 

Block Read 
Block Read Optimum 

0100 Stop I/O has been sent : $SECSTAT 
Block E/0 Status Control 
040 I/O stopped by user : $SECSTAT 

010 Tape-mark detected : $SECSTAT 

Multi-Resource, Change Disk File Security: 

STRUCT; $SECURE Parameter Table 
Block Write 

Wait for Operation Complete 
Block Write Optimum 
1 Resource physical write protect:$SECSTAT:D$RMSI0 
Define Var Type BYTE and Define Powers of 2 :D$INC 
Set CHAIN Abort Flag : D$UFRWS 

[3] BYTE; Clock adj in seconds per day : $SETTTMEP 
BYTE; Clock adjustment direction : $SETTIMEP 


: D$FAR 
D$UFRNUM 

: D$RMSI0 
:D$RMSI0 
D$RMSI0 
D$RMSI0 
D$RMSI0 

D$RMSI0 

$SYSTIME 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMST0 

D$RMSI0 

D$RMST0 

D$RMSI0 
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sc $SETIME 
sc $SETMAX 
sc $SETMIN 
sc $SETPRI 
fid $SETSEC 
sc $SETSQL 
typ $SETTIMEP 
dim SETV 
dim SETW 
typ $SFENT 
fid $SFIP 
typ $SFITABLE 
typ $SFNT 
fid $SFTENV 
fid $SFTEXT 
fid $SFTNAM 
fid $SFTSFN 
abr SID 
sc $SIGNON 
sc $SINDEP 
drw SIZEOF 
val $SKAFX 
val $SKCM38I 
val $SKCMOO 
val $SKCm01 
val $SKCm02 
val $SKCM62 
val $SKCM481 
val $SKCM86I 
val $SKCM86H 
val $SKCH88I 
val $SKDK13& 
val $SKDK67 
val $SKDKC10 
val SSKDKCTG 
val $SKDKF01 
$SKDKF01 
val $SKDKFLX 
val $SKDKM10 
val $SKDKM20 
val $SKDKM25 
val $SKDKS10 
val $SKDKS40 
val $SKDKW10 
val $SKDKW20 
val $SKFCI 
val $SKMT75 
val $SKm78 
val $SKKT916 
val $SKm98 
val $SKPT297 
val $SKPT601 
val $SKPT611 
val $SKPT621 
val $SKPTFRE 


Set The Current System Time : D$RJ V 
Set maximum memory requirement : D$Rf 
Set Minimum Memory Requirement : D$RF 
Set User Task Priority Level : D$RMS 
$TIME;Time in seends since begin of 1901 :$SET1 
Set Security Level : D$R1 
STRUCT; $SETTME Parameter Table : D$RN 
Define Ascending Powers of 2 from Initial : E 
Define Var Type UNSIGNED; Powers of 2 : I 
STRUCT; Symbolic File Table : E 
a $SFITABLE; : $FIL£ 
STRUCT; $GETSFI Information : D$F 
[8] CHAR; Symbolic Field Name : E 
$ENVN; File environment : $5 
$EXTT; File extension : $S 
$NAMET; File name : $S 
$SFNT; Symbolic field name : $S 
Source Identification 

Force User Signon : D$RM£ 
Start an Independent Task : D$RMS 
Operator Which Gives Size in Bytes of Argument 


D$RMSGEN 
D$RMSMEM 
D$RMSMEM 
D$RMSPRQG 
$SETTIMEP 
d$rmsgi;n 
D$RMSGF.N 
: D$INC 
: D$INC 
: D$RMS 
$FILESTBL 
: D$RMSI0 
: D$RMS 
: $SFENT 
: $SFENT 
: $SFENT 
: $SFENT 

D$RMSPR0G 

D$RMSTASK 


1 Peripheral FAX device 
006 Internal com adaptor in 1800/3800 
002 Async com adaptors: 9400, 9401, 9402 
003 Async com 9400 with Bell 103 modem 
004 Async com 9400 with Bell 202 modem 
005 Port on multi port: 9462 MPCA port 
001 Multi function com adaptor: 9481 MFCA 
007 Internal com adaptor in 8600 
9 Comm Device on 8600 MPCA 
010 Internal com adaptor in 8800 
006 9390 Disk: 134 MB fixed on 8800 IMOD 
005 9390: 67MB on 55/66MIDS or 8800IM0D 
010 9310: 10 MB Cynthia on 8600 Microbus 
002 9350: 2.5 MB Cartridge on 5500/6600 
009 1403: 1 MB Dbl-Side Dbl-Dens Diskette 
M TORTILLA",on 8600 uBus 
001 Flexible diskette on 1800 Microbus 
003 9374: 10 MB Mass storage on 5500/6600 


007 9301 
004 9370 


D$RMSI0 

DSRMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 


20MB fxd disk on 8600PI0 ,f Whi zzie n : D$RMSI0 


9370: 25 MB Mass storage on 5500/6600 
10 MB Moses on 8600 micro-buss 
40 MB Moses on 8600 micro-buss 


D$RMSI0 

D$RMSI0 

D$RMSI0 


10 MB Cyclone on 8600 micro-Buss :D$RMSI0 


015 20 MB ’Cyclone’ on 8600 micro-Buss 

0 FAX communications interface 

004 7-track 556 BPI Tape 

001 7-track 800 BPI Tape 

003 9-track 1600 BPI Tape 

002 9-track 800 BPI Tape 

011 132 Col Serial printer attached to MP 


D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 

D$RMSI0 


006 Mercury serial printer attachd to MPCA :D$RMSI0 
007 Orion serial printer attached to MPCA : D$RMSI0 
010 Freedom serial printer attachd to MPCA :D$RMSI0 
002 Freedom printer : D$RMSI0 
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val $SKPTFST 
va1 $SKPTLOC 
val $SKPTMER 
val $SKPTSVO 
val $SKUNDEF 
val $SmS36 
val $SKWS38 
val $SKWS56 
val $SKWS822 
val $SKWS823 
val $SKWS86 
val $SKWSALN 
val $SKWSNA 
val $SKWSRMS 
sc $S LOCAL 
ufr $SMLPLY3 
abr SOU 
typ $SONT 
abr SPRM 
abr SPV 
abr SPV 
abr SQL 
val $SQLCHEK 
val $SQLMAX 
val $SQLREPR 
fid $SSALLO 
fid $SSFCT 
fid $SSFFMT 
fid $SSFIAC 
fid $SSFINC 
fid $SSFSL 
val $SSGET 
val $SSGETX 
fid $SSKEYS 
val $SSPUT 
val $SSPUTX 
fid $SSSEGM 
fid $SSX 
typ $STARTADR 
ddw STATIC 
val $STOPALL 
sc $STOP10 
val $STOPONE 
ddw STRUCT 
dcm SUBSTR 
fid SYS 
drw SYSTEM 
typ $SYSTIME 
typ $SYSTINFO 


003 Freedom prntr with secondary tractor 


001 Line printer 

005 Mercury printer parallel T/O 

004 Servo printer 

000 Resource has no subkind 

003 3601/8200 ver 1.1 Multiport Terminal 

002 1800/3800 processor console 

001 5500/6600 processor console 

006 8220 workstation 

007 8230 Workstation 

005 8600 processor console 

010 Alien device (non Datapoint) 

000 Workstation not available 
04 RMS WS (8200 ver.2 multi-port 
Start Local Task 

Numeric, Signed 24-bit Multiplication 
Start of Header 

[8] CHAR; Symbolic Option Field Name 
RMS System Programmer's Reference Manual 
? 

Shared Program Variable 
Security Level 

010 Security level required to check 
Oil Highest possible security level 


dSrmsto 
d$rmsto 

D.SrMSIO 
D$RMSI0 
D$RMST0 
D$RMST0 
D$RMST0 
D$RMSI0 
D$RMSI0 
D$RMSI0 
D$RMSI0 
D$RMST0 
D$RMSI0 
terminal):D$RMSI0 
: D$RMSTASK 
D$UFRNUM 


: D$RMS 
(Vols 1-4) 


D$RMSGEN 

D$RMSGKN 


011 $SQUiAX:Security lvl requird to repair:D$RMSGLN 


$LSN; LSN of last allocated sector 
$TIME; File creation time 
BYTE; File format code 
$ACC0DES; File initial access code 
UNSIGNED; File increment 
BYTE; File security level 
000 File security get from FDT 
002 Get extra info from FDT 


$SECURETBL 
$SFXURETBL 
$SECURETBL 
$SECURETBL 
$SECURETBL 
$SECURETBL 
: D$RMSI0 
: D$RMSI0 


$FILEKEYS; access keys and codes:$SECURETBL:D$RMSI0 
001 File security put into FDT : D$RMST0 

003 Put extra info into FDT : D$RMSI0 

BYTE; Number of segments in file : $SECURETBL 

[2| BYTE; : $SECURETBL 

a D$CALLF; Starting Address Type : D$RMS 

Prevents Re-allocation of Var. in Recur. Function 

000001 Stop all 1/0 : D$RMSI0 

Stop All Data Movement : D$RMSI0 

000000 Stop I/O given by PFDB : D$RMSI0 

Named Member Consisting of Several Named Members 
Select Part of String, Begin at Start for Length 
UNSIGNED; System usage : $PFDBBUF 

Reserved for Future Code Generators 
STRUCT; System Time : D$RMSGEN 

System Time Information : D$RMSGEN 
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abr TA Transmitter Available 

var TAPEDIO$ EXTERN TAPEDIO$ BYTE; Driver 

TAPEDIO$ Tape Double Buffered I/O Driver Routine 
var TAPEIO$ EXTERN TAPEIO$ BYTE; Driver 

TAPEIO$ Tape Single Buffered I/O Driver Routine 
ufr $TAPEREWIND Rewind Tape 
ufr $TAPEUNLOAD Rewind Tape and Unload 


$TASKCTL 
TBD 
val $TCAKS 
abr TCB 
val $TCDKS 
val $TCFK 
val $TCKKS 
val $TCLOKS 
val $TCVAKS 
val $TCVLKS 
dew THEN 


SC 

abr 


Exert Control Over a Task 
Broadcast Delay Time 

1 Force abort 
Task Control Block 

2 Force DISPLAY key sequence trap 

4 Force FUNCTION key trap 

3 Force KEYBOARD key sequence trap 
0 Force LOGOFF 

6 Force VANTAGE ABORT Key Seq Trap 

5 Force VANTAGE LOG-OFF Key Seq Trap 
Part of IF THEN ELSE Execution Control 


D$UFRWFTO 

D$UFRWFIO 

D$UFRWFIO 

D$UFRWFIO 

D$RMSTASK 

D$RMSTASK 

D$RMSTASK 

D$RMSTASK 

D$RMSTASK 

D$RMSTASK 

D$RMSTASK 

D$RMSTASK 


typ $TIME 
sc $TIMER 
abr TLPM 
fid $TM8MS 
abr TMA 
fid $TMADJ 
val $TMADJDN 
fid $TMADJDR 
val $TMADJUP 
fid $TMDSTDC 
val $TMDSTDI 
$TMDSTDI 
fid $TMDSTFG 
fid $TMDSTHR 
fid $TMDSTMN 
fid $TMDSTOS 
fid $TMDSTWD 
fid $TMDTEND 
fid $TMDTSTR 
fid $TMTZ 
fid $TMUTC 
abr TPM 
abr TPT 
sc $TRAPAKS 
sc $TRAPDKS 
sc $TRAPFK 
sc $TRAPKKS 
sc $TRAPLKS 
sc $T RAP SET 
sc $TRAPUm 
abr TRC 
abr TRP 
val TRUE 
abr TSB 
abr TSF 
abr TTA 
abr TX 


[5] BYTE; Time in Secnds Since Begin of 1901: D$RMS 
Reset System Timer : D$RMSPR0G 


Tape Label Processing Module 

BYTE; Eight Millisecond Counter : $SYSTINF0 

Transmitted Message Acknowledged 

[3] BYTE; Clock Adj'ment in Seconds/Day : $SYSTINF0 I 
0 Adjust Clock Down : $SYSTINF0 : D$RMSCEN | 

BYTE; Clock Adjustment Direction : $SYSTINF0 

2 Adjust Clock Up : $SYSTINF0 : D$RMSGEN 

BYTE; Number of Days to Count : $DSTINF0 

1 Direction Flag: : $DSTINF0 : D$RMSGEN | 

0=From Start l=From End 


DST Start/Stop Flags 

BYTE; Hour Start/Stop DST 

BYTE; Month to Start/End DST 

BYTE; DST Adjustment in Hours 

BYTE; Day of Week to Start/Stop DST 

$DSTINF0; DST End Table 

$DSTINF0; DST Start Table 

$TIME; Time Zone Offset from UTC 

$TIME; Universal Co-ordinated Time 


: $DSTINF0 
: $DSTINF0 
: $DSTINF0 
: $SYSTINF0 
: $DSTTNF0 
: $SYSTINF0 
: $SYSTINF0 
: $SYSTINF0 
: $SYSTINF0 


Message Propagation Time 

Token Propagation Time 

Trap ABORT Key Sequence 

Trap DISPLAY-CANCEL-DISPLAY Key Sequence 

Trap Function Key Strokes 

Trap Keyboard Key Sequence 

Trap LOG-OFF Key Sequence 

Trap Set System Call, Used Indirectly 

Trap User Mode Violations, 

Recovery Time 
Response Timeout 

ENUMV 001 Boolean value: ’true’ 

Third Significant Byte (bits 16-23) 

Task Status File 


D$RMSPR0G 

D$RMSPR0G 

D$RMSPR0G 

D$RMSPR0G 

D$RMSPR0G 

D$RMSPR0G 

D$RMSPR0G 


: D$INC 


Turnaround Time 


Transmit 
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ufr $TXBKSP Backspace a logical record : D$UFRWFIO 

ufr $TXCLOSE Terminate Processing for a Text-File : D$UFRWFTO 

ufr $TXDEL Delete a Logical Text Record : DStJFRWFTO 

ufr $TXOPEN Prepare an Opened Text-File for Access : D$UFRWFIO 

ufr $TXOPENP Open Using Specified Physical I/O Routine:D$UFRWFIO 
ufr $TXPOSEF Position to Text-File EOF : D$UFRWFIO 

ufr $TXPOSIT Position Text-File to File Pointer : D$UFRWFIO 

ufr $TXPREP Prepare a New Text-File for Access : D$UFRWFIO 

ufr $TXPREPP Prepare Using Specified Phys I/O Routine :D$UFRWFIO 
ufr $TXREAD Read a Logical Text-File Record : D$UFRWFIO 

ufr $TXUPDATE Update a Logical Text Record : D$UFRWFIO 

ufr $TXWEOF Write EOF at Current Text-File Position : D$UFRWFIO 

ufr $TXWRITB Write Text-file record, specified length :D$UFRWFIO |* 
ufr $TXWRITE Write a Logical Text-File Record : D$UFRWFIO 

ddw TYPDEF Give a Type a Name that may be Used as a Type 


abr U-BUSS 
fid $UABAKSS 
val $UABALOC 
fid $UABBR 
val $UABCLR 
fid $UABDAD 
fid $UABDATA 
fid $UABDKSS 
val $UABD(JAL 
val $UABDUMP 
fid $UABERR 
fid $UABFAVA 
fid $UABFAVC 
fid $UABFKS 
fid $UABFLG 
val $UABHDR 
fid $UABKKSS 
val $UABLCL 
fid $UABLKSS 
fid $UABHCUR 
fid $UABMMAX 
fid $UABMMIN 
fid $UABNAME 
fid $UABNVER 
fid $UABPCRK 
val $UABPDAD 
val $UABPPCR 
val $UABPPRV 
val $UABPPWS 
val $UABPRO 
fid $UABPROC 
val $UABPSHR 
fid $UABPSR 
fid $UABPSKS 
val $UABPWSA 
fid $UABPWSK 
val $UABPWSX 
fid $UABREG 


Micro-Buss 

UNSIGNED; ABORT key seq trap addr 

1 Mem allocation table LSN :$UABSECTOR: 
BYTE; User base register 

2 De-activatc User ABEND for this task 
$NAMET; Father task name 

(256) BYTE; LSN 3 thru n 

UNSIGNED; Display key seq trap adddr 

1 Dual Sector Tables active :$UABSECTOR 

3 Memory dump LSN : $UABSECTOR : 

BYTE; Error control 

BYTE; Nbr of active I/O operations 
BYTE; Nbr of complete I/O operations 
UNSIGNED; Function key trap addr 
BYTE; User flags 

0 header sector LSN : $UABSECTOR : 

UNSIGNED; Keyboard key seq trap addr 
020 local task : $UABSECTOR.$UABSTAT; 
UNSIGNED; Logoff Key Seq Trap Addr 
BYTE; Current memory allocation 
BYTE; Maximum Memory Allocation 
BYTE; Minimum memory allocation 
$NAMET; User task name 
(5] BYTE; Nucleus version 
BYTE; PCR Sector PSK : $UABSECTOR : 
010 PSK ovmd by father task :$UABSECTOR 
020 PSK is the PCR sector : $UABSECT0R: 
.2 PSK is private to this tsk:$UABSECT0R 


32 PSK is the PWS Sector : $UABSECTOR : 

1 PSK is read only : $UABSECTOR : 

BYTE; Processor type 

04 PSK is shared : $UABSECTOR : 

BYTE; User PSK 
(128] STRUCT ! LSN 1&2 
4 PWS Active : $UABSECTOR 

BYTE; PWS Sector PSK : $UABSECT0R 

2 Executing in PWS Sector :$UABSECTOR 
[8] BYTE; User registers ABCDEHLX 


$UABSECTOR 

$UABSECT0R 


$UABSECTOR 
D$RMSSTRUCT 
$UABSECT0R 
: D$RMSPR0G 
$UABSECT0R 
$UABSECT0R 
$UABSECT0R 
D$RMSSTRUCT 
D$RMSSTRUC‘T 
$UABSECTOR 
$UABSECTOR 
$UABSECTOR 
$UABSECT0R 
$UABSECT0R 
D$RMSSTRUCT 
$UABSECTOR 
D$RMSSTRUCT 
$UABSECT0R 
$UABSECTOR 
$UABSECTOR 
$UABSECT0R 
$UABSECTOR 
$UABSECT0R 
D$RMSSTRUCT 
D$RMSSTRUCT 
D$RMSSTRUCT 
D$RMSSTRUCT 
D$RMSSTRUCT 
D^RMSSTRUCT 
$UABSECT0R 
D$RMSSTRUCT 
$UABSECT0R 
$UABSECT0R 
D$RMSSTRUCT 
D$RMSSTRUCT 
D$RMSSTRUCT 
$UABSECTOR 
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typ $UABSECTOR User Abend Header Sector Format : D$RMSSTRUCT 

val $UABSET 0 Activate User ABEND for this task : D$RMSPROC 

val $UABSETO 1 Activate User ABEND for other task : D$RMSPROG 

val $UABSHAR 010 Shared program active : $UABSECT0R: D$RMSSTRUCT 

fid $UABSniD $NAMET; Shared program name : $UABSECTOR 

fid $UABSPSK Status of user PSK : $UABSECT0R 

fid $UABSTAT User state : $UABSECTOR 

fid $UABSTB (321 BYTE; User sector table : $UABSECT0R 

fid $UABSTBN BYTE; Nbr of entries in user sector tabl:$UABSECTOR 
fid $UABSTK [321 UNSIGNED; User stack : $UABSECTOR 

fid $UABSTKN BYTE; Nbr of level in user stack : $UABSECT0R 

fid $UABTIME $TIME; Time of abort : $UABSECT0R 

fid $UABUMVS UNSIGNED; User mode violation trap addr: $UABSECTOR 

abr UAT User Access Token 

abr UAV User Access Variable 

abr UCP Unique Communication Pipe 

abr UCS User Created Semaphore 

sc $UCSCHK Check a User Created Semaphore : D$RMSTASK 

sc $UCSDEL Delete a User Created Semaphore ? : D$RMSTASK 

sc $UCSGEN Generate a User Created Semaphore : D$RMSTASK 

sc $UCSSIG Signal a User Created Semaphore : D$RMSTASK 

sc $UCSWAIT Wait on a User Created Semaphore : D$RMSTASK 

abr UDA User Data Area 
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NOTE: In the FUNCTIONS section descriptions of error codes, 
the contents of: 

$ERRC.$FUNC is usually SC$ ... or $VEC... and 
$ERRC.$CODE is usually $EC...nn or $UEC...nn 

The $EC...nn or $UEC...nn ends with a decimal number which 
is its value. 

The words with a :* at the end of the line in this section, 
WORDS , are defined in DASL in the D$ERRCODE include file. 
You may use those words in statements testing the value of 
$ERRC.$CODE , otherwise you must use the decimal value. 


val $UECCHN 000210 CHAIN,Chaining : D$ERRNUM 

val $UECCHN0 000000 Missing terminator in job file :* 

val $UECCHN1 000001 End of job file reached during cmd execut :* 

val $UECCUN2 000002 Invalid control record in job file :* 

val $UECCHN3 000003 Job file environment not found by ENVL0C$ :* 

val $UECCHN4 000004 Invalid record type in job file :* 

val $UECCHN5 000005 Internal error in chain execution overlay :* 

val $UECCHN6 000006 Invalid header record in job file :* 

val $UECCHN7 000007 CHAIN vector err when executn ovl loaded :* 

val $UECCHN8 000010 Internal error in CHAIN compilation :* 

val $UECENV0 000000 Invalid UET entry format :* 

val $UECENV1 000001 Non-existent UET entry specified :* 

val $UECENV2 000002 Duplicate UET entry specified :* 

val $UECENV3 000003 UET memory overflow :* 

val $UECFIL 000213 FILES,,FILES$ : D$ERRNUM 

val $UECFIL0 000000 Catalog access denied :* 

val $UECFIL1 000001 FILEPCN not called :* 

val $UECFIL2 000002 Catalog file already closed :* 

val $UECFIO 000204 FASTI0,Fast 1/0 

val $UECFIOO 000000 Input text file record too large 

val $UECFI01 000001 Invalid input text file format 

val $UECFI02 000002 Invalid char in text record to be written 

val $UECGLN 000202 GETLINE, : D$ERRNUM 

val $UECGLN0 000000 CHAIN file line too long :* 

val $UECGLN1 000001 Keyin attempted with note display inhibitd:* 

val $UECGLN2 000002 No workstation available :* 


val $UECLDR 000212 L0ADREL, : D$ERRNUM 
val $UECLDR0 000000 Not enough memory to load member :* 
val $UECLDR1 000001 Cannot allocate memory to load member :* 
val $UECLDR2 000002 Library format error :* 
val $UECLDR3 000003 Specified member could not be found :* 
val $UECLDRU 000004 Invalid relocatable text control code :* 
val $UECLDR5 000005 Invalid sector code encountered :* 
val $UECLDR6 000006 Specified member is not correct type :* 
val $UECLDR7 000007 Internal error :* 


val $UECLIB 000214 LIBUFR,$UECLIB,0214,LBUFR$ : D$ERRNUM 
val $UECLIB0 000000 Member not found :* 
val $UECLIB1 000001 Duplicate member :* 
val $UECLIB2 000002 Invalid library file format :* 
val $UECLOG 000211 Logging : D$ERRNUM 
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val $UECLOCO 
val $VECLOGl 
val $OECWG2 
val $VECLOG3 
val $UECLOGi 
val $UECLOG5 
val $UECLOG6 
val $UECL0G7 
val $UECMEM 
val $UECMEMO 
val $UECMPiK 
val $OECNVD 
val $UECNVI 
val $VECNVL 
val $UEC1WP 
val $VECOPN 
val $UECOPNO 
val $UEC0PN1 
val $UEC0PN2 
val $UEC0PN3 
val $OECPDA 
val $UECPDA 
val $VECPDAO 
val $UECPDA1 
val $UECSFL 
val $UECSFLO 
val $VECSFL1 
val $VECSFL2 
val $VECSFL3 
val $UECSFL4 

yal $UECSFL5 
val $OECSOS 
val $UECSOSO 
val $UECS0S1 
val $0ECS0S2 
val $UECS0S3 
val $UECSOSi 
ufr $UERHSG 
abr UET 
var $UET1STP 
var $UETPTR 
var $UETTOPP 
abr UFR 
typ ULONG 
var $ULS1ST 
var $ULSTOPP 
ddw UNION 
ufr $UNLKRIM 
typ $UNPACKPW 
ufr $UNPAKPW 
ddt UNSIGNED 
sc $USRABN 
abr UTC 
val $UTEACCS 


000004 

000005 

000006 


000215 MEMGP$ 
000000 Attempt 


000000 Invalid $WSI0 control character encounterd:* 
000001 Log file environment not found hy ENVL0C$ :* 
000002 Log vector and flag are inconsistent :* 

000003 Entry point error in PCR resident code :* 
Log data pointer and flag are inconsistent:* 
Invalid log message member format :* 

Internal error in log control program :* 

000007 Invalid device type given for log output :* 

: D$ERRNUM 

to exceed allowable memory •* 

0207 $MAP4K 
000217 ENVDEL$ 

000216 ENVINS$ 

000220 ENVL0C$ 

000221 ENVPEEL$ 

000201 OPEN,'File OPEN' 

000000 Specified environment is not defined 
000001 File not found in any environment 
000002 Invalid open mode for environment scanning 
000003 Invalid file format code 
000206 D0SPDA,Physical Disk Address,NO DASL VAL? 
000206 not in FUNCTIONS Section .NO DASL VAL? 

000000 Unknown disk sub-kind 
000001 Invalid DOS physical disk address 


D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
D$ERRNUM 
* 
* 
* 
* 


000205 SCANFLS, 


D$ERRNUM 


000000 Invalid character in file specification 
000001 Undefined symbolic file name 
000002 File specification duplicated 
000003 Too many file specifications 
000004 File prompt required while chaining or 

stack active :* 

000005 File specification string too long :* 

000203 SCAN0S, : D$ERRNUM 

000000 Invalid character in option specification •* 

000001 Undefined option name 
000002 Option name duplicated 
000003 Option specification string too long 
000004 ? 

Store User Error Message on Command Stack :D$UFRERR 
User Environment Table 


a BYTE; Adr of first byte in user ENV table : D$PCR 
a $ENVT; Address of first UET entry : D$PCR 

a BYTE; Above top of UET area ? : D$PCR 

User Function Routine 

STRUCT; 24 Bit Number Structure : D$INC 

(0] BYTE; First byte of usr logical adr spac: D$PCR 
a BYTE; Above top of user logical space : D$PCR 

Named Member Contains Different Possible Members 
Release RIM from Pipe ? (on hold) : D$UFRSYS 

[8] CHAR; Unpacked Password : D$UFRENV 

Unpack password into ASCII string : D$UFRENV 

;DASL scalar data type: 2 bytes unsigned 
User Abend Facility : D$RMSPR0G 

Universal Time Co-ordinated (GMT) 

1 User Tsk Err:Mem access protect violatn:D$RMSPR0G 
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val $UTEHALT 0377 (Jscr Tsk Err .-Halt Tns for breakpntng:D$RMSPR0C 
val $UTEINST 2 Usr Tsk FrrtTllegal Tns.usr mode violatn :D$RMSPR0C 
val $UTEUNDF 3 TTsrTsk Err: Undo fined Tns or system mil rD^RMSPROC. 
val $UTEWRIT 0 UsrTsk Err:Memory write protect violatn:D$RMSPR0G 


val $V 
val $VA 
ddw VAR 
var VBASEIO$ 
ufr $VGETBUF 
ufr $VINIT 
var VI0INIT$ 
var VIRTUAL$ 
VIRTUAL$ 
ufr $VMAPPSK 
abr VOLID 
ufr $VPUTBUF 
abr VRP 
ufr $VSETWIN 


0235 New cursor row follows (pos) : D$RMS 
0237 Cursor row adjustment follows (adj) : D$RMSWS 
Indicates Local Variable Definitions Follow 


EXTERN VBASEI0$ BYTE; ? 

Obtain Buffer Group from Virtual Pool 
Initialize Virtual I/O Management 
EXTERN VI0INIT$ BOOLEAN; ? 

EXTERN VIRTUAL$ BYTE; 

Driver function for Virtual WFIO 
Donate a PSK to Virtual Management 
Volume Identification 
Return a Buffer Group to Virtual Pool 
? in $INF0ITEM 

Establish Memory Window Areas, Virtual 


D$UFRWFI0 

D$UFRWFI0 

D$UFRWFI0 

D$UFRWFI0 

D$UFRWFI0 

D$UFRWFI0 

D$UFRWFI0 

D$UFRWFI0 


sc $WAITIO Wait for any Operation Completion 

sc $WAITIOS Wait Status Change 

sc $WCONFIG Get Workstation Configuration 

typ $WFCB STRUCT; Work File I/O Control Block : 

fid $WFCBBLKCOUNT UNSIGNED; block I/O counter 

fid $WFCBBLKCURR UNSIGNED; current block position 

fid $WFCBBLKHAX UNSIGNED; max block size allowed 

fid $WFCBBLKSIZE UNSIGNED; current block size 

fid $WFCBCURR $FILEPTR; Current file pointer 

fid $WFCBEOF $FILEPTR; EOF pointer 

fid $WFCBFLAG $WFCBFLAG; Control flag ($WFF..) :$WFCB: 

typ $WFCBFLAG Work File I/O Flags : 

fid $WFCBFLAG2 $WFCBFLAG2; Second control flag byte 
typ $WFCBFLAG2 Second Control Flag Byte Type 


fid $WFCBHOLD BYTE; Space compression hold area 
fid $WFCBMAX $FILEPTR; Maximum pointer 
fid $WFCBPFDBP a $PFDB; PFDB pointer 
fid $WFCBPFDBP2 a $PFDB; Secondary PFDB pointer 
fid $WFCBPIO *a BYTE; Physical I/O routine vector 
fid $WFCBPIOTAB a $WFIOTABPRTN; routines 
fid $WFCBRESV [41 BYTE; Reserved Area 
fid $WFCBRSIZ UNSIGNED; Record size 

ufr $WFCLOSE Terminate Processing of Work File : 

val $WFFDIRTY 002 Internal Use : $WFCBFLAG : 

val $WFFEOFOK 0200 ? : $WFCBFLAG : 

val $WFFINPROG 0100 ? : $WFCBFLAG : 

ufr $WFFLUSH Dump Pending Write Buffers to Disk 

val $WFFNOTDSK 040 Internal Use : $WFCBFLAG : 

val $WFFSHRD 020 Text or Binary File in Shared mode 
$WFFSHRD : $WFCBFLAG : 


val $WFFSPCTXT 004 Special text records to be read 

$WFFSPCTXT : $WFCBFLAG : 

val $WFFUNCOMP 010 Uncompressed format text: $WFCBFLAG : 


: D$RMSI0 
: D$RMSI0 
: D$RMSWS |* 
D$UFRWFI0 
: $WFCB 
: $WFCB 
: $WFCB 
: $WFCB 
: $WFCB 
: $WFCB 
D$UFRWFI0 
D$UFRWF10 
: $WFCB 
D$UFRWFI0 
: $WFCB 
: $WFCB 
: $WFCB 
: $WFCB 
: $WFCB 
: $WFCB 
: $WFC'B 
: $WFCB 
D$UFRWFI0 
D$UFRWFI0 
D$UFRWFI0 
D$lIFRWFI0 
D$UFRWFT0 
D$UFRWFI0 

D$UFRWFI0 

D$UFRWFT0 

D$UFRWFI0 
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val $WFFUPDEOF 001 ? 

abr WFIO Work File I/O 

tvp SWFTOPRTN Physical l/O Function Routine Type 
typ $WFI0TABPRTN Table of Pointers to Phys I/O Routines 


$WFCBFLAC : D$UFRWFI0 


ufr $WFOPEN 
ufr $WFOPENP 
val $WFPACRED 
var WFPI0$ 
WFPIO$ 
ufr $WFPOSEF 
ufr $WFP0SIT 
ufr $WFPREP 
ufr $WFPREPP 
ufr $WFREAD 
ufr $WFREADL 
cr WFUPDAT$ 
ufr $WFUPDATE 


Prepare an Open Work File For Access 


dSufrwfto 

D$UFRWFI0 

D$UFRWFI0 


Open Using Specified Physical I/O Routine:D$UFRWFI0 


1 ? : $WFCBFLAG2 

EXTERN WFPI0$ BYTE; Driver, 

Workfile Physical I/O Driver Routine 
Position to Files EOF 
Position To File Pointer 
Prepare a New Work File For Access 
Prepare Using Specified Phys I/O Routine 
Read a Logical Record 
Read in LOCATE Mode 
Update a Logical Record 
Update a Logical Record 
ufr $WFUPDAXEL Update a Record in LOCATE Mode 
cr WFUPDTL$ Update a Record in LOCATE Mode 

Write EOF At Current File Position 
Write a Logical Record 
Write a Record in LOCATE Mode 
Write a Record in LOCATE Mode 
Part of LOOP WHILE Execution Control 
Clear an Area of Memory to SPACES 
Clear an Area of Mem to Constant Value 
Word Processing System 

1 Workstation Kind bit 0 

2 Workstation Kind bit 1 

4 Workstation Kind bit 2 

8 2-Level video available 

040 Blink available 
4 Cursor font loadable 
0100 Expandd function kbd. 

2 System just Re-Booted 
1 Tube just powered on 
020 Underline available 
010 Workstation Kind bit 3 
0 Character Font Not Loadable 


ufr $WFWEOF 
ufr $WFWRITE 
ufr $WFWRITEL 
cr WFWRITL$ 
dew WHILE 
ufr $WIPEBT 
ufr $WIPEBTA 
abr WPS 
val $WS0 
val $WS1 
val $WS2 
val $WS22LVA 
val $WS2BNKA 
val $WS2CFL 
val $WS2EFKO 
val $WS2IPL 
val $WS2PW 
val $WS2VLNA 
val $WS3 
val $WS3FD0 
$WS3FD1 


D$UFRWFT0 

D$UFRWFI0 

D$UFRWFT0 
D$UFRWFI0 
D$UFRWFI0 
:D$UFRWFI0 
D$UFRWFI0 
D$UFRWFI0 

D$UFRWFI0 

D$UFRWFI0 

D$UFRWFI0 

D$UFRWFI0 

D$UFRWFI0 


D$UFRGEN 
D$UFRGEN 

: D$RMSWS 
: D$RMSWS 
: D$RMSWS 
: D$RMSWS 
: D$RMSWS 
: D$RMSWS 
on-line:$WSC0NF2:D$RMSWS 


: $WSC0NF 
: $WSC0NF 
: $WSC0NF 
$WSC0NF2 
$WSC0NF2 
$WSC0NF2 


: $WSC0NF2 
: $WSC0NF2 
: $WSC0NF2 
: $WSC0NF 
: $WSC0NFDS 


thru $WS3FD4 : Table heading 


$WS3FD1 

Size 

Size 

Length 

Descriptor 


$WS3FD1 

Horiz 

Vert 

Per Char Required? 


val $WS3FD1 

1, 5 

7 


5 

no 

$WSC0NFDS 

D$RMSWS 

val $WS3FD2 

2, 5 

7 


7 

no 

$WSC0NFDS 

D$RMSWS 

val $WS3FD3 

3, 8 

12 


12 

yes 

$WSC0NFDS 

D$RMSWS 

val $WS3FD4 

4, 9 

12 


12 

yes 

$WSCQNFDS 

D$RMSWS 

val $»S3FDMK 

017 

Font Data' 

Mask 


$WSC0NFDS 

D$RMSWS 

val $WS3NFMK 

0360 

' Number 

of 

Fonts 

' Mask 

$WSC0NFDS 

D$RMSWS 


val $WS3NFS 
$WSALT1D 
$WSALT1U 
$WSALT2D 
$WSALT2U 
$WSALT3D 
$WSALT3U 


val 

val 

val 

val 

val 

val 


D$RM$W$ 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 


4 'Number of Fonts' Shift Value:$WSC0NFDS : D$RMSWS 
0334 'ALT (LEFT/LEFT)' key down : D$RMSWS 
0335 'ALT (LEFT/LEFT)' key up : D$RMSWS 
0310 ’ALT (LEFT/RIGHT)’ key down : D$RMSWS 
0311 'ALT (LEFT/RIGHT)' key up : D$RMSWS 
0312 'ALT (RIGHT/LEFT)' key down : D$RMSWS 
0313 'ALT (RIGHT/LEFT)' key up : D$RMSWS 
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val $WSALTED 
val $WSALTW 
val $WSALTLD 
val $WSALTLU 
val $WSALTRD 
val $WSALTRU 
val $WSATT 
val $WSATTEN 
$WSAITEN 
$WSATTEN 
val $WSATTK 
val $WSATTKS 
val $WSATTUP 
val $WSBADPK 
val $WSBARID 
val $WSBAK1U 
val $WSBAK2D 
val $WSBAK2U 
val $WSBAKSD 
val $WSBAKSU 
val $WSBCPA 
val $WSBEEP 
val $WSBFKDA 
val $WSBFKSA 
val $WSBFKUA 
val $WSBFSHA 
val $WSBIFDT 
val $WSBIVA 
val $WSBL 
val $WSBLANK 
val $WSBLCFA 
val $WSBSPK 
val $WSBSWA 
val $WSCANK 
val $WSCASED 
val $WSCASEU 
val $WSCCKA 
val $WSCIAKA 
val $WSCIAUA 
val $WSCIAUA 
$WSCIAUA 
val $WSCIRCD 
val $WSCIRCU 
val $WSCKCCD 
val $WSCKCCU 
val $WSCKCLD 
val $WSCKCLU 
val $WSCKCRD 
val $WSCKCRU 
val $WSCKDCD 
val $WSCKDCU 
val $WSCKDKA 
$WSCKDKA 
val $WSCKDLD 
val $WSCKDLU 


0336 'ALT (RICHT/RICHT)' key down : D$RMSWS 
0337 'ALT (RICHT/RICHT)' key up : D$RMSWS 
0334 'ALT (LEFT) 1 key down : D$RMSWS 
0335 'ALT (LEFT)' key up : D$RMSWS 
0336 'ALT (RIGHT)' key down : D$RMSWS 
0337 'ALT (RIGHT)' key up : D$RMSWS 
02000 'ATTENTION' key Down : $WSTAT : D$RMSWS 
0216 Enable KDS 3 Attributes : D$RMSWS 
( underline & 2-level video) on 8600 console. 

Has no effect on other workstations. 

000217 'ATTENTION' key : D$RMSWS 
0231 'ATTENTION' key shifted : D$RMSWS 
0222 'ATTENTION' key released : D$RMSWS 
000220 Bad parity received : D$RMSWS 
0302 'BACKSPACE (LEFT)' key down (U.S.A.) : D$RMSWS 
0303 'BACKSPACE (LEFT)' key up (U.S.A. ) : D$RMSWS 
0316 'BACKSPACE (RIGHT)' key down (U.S.A.): D$RMSWS 
0317 'BACKSPACE (RIGHT)' key up (U.S.A.) : D$RMSWS 
0316 'BACKSPACE' key down (U.S.A.) : D$RMSWS 
0317 'BACKSPACE' key up (U.S.A.) : D$RMSWS 
040000 Cursor positioning available:$WSC0NF:D$RMSWS 


0204 Beep 

02000 Fl thru F5 downstrokes avail:$WSC0NF 
04000 Fl thru F5 static bits avail:$WSC0NF 
01000 Fl thru F5 upstrokes avail :$WSC0NF 
0400 Shifted function keys avail :$WSC0NF 
010 Get data from Internal Buffer Module 
020000 Inverted video available : $WSC0NF 
000013 Bottom line 
040 ' ', Reserved for blank code 
010000 Display font set loadable : $WSC0NF 
000010 'BACKSPACE' key 

0100000 Sub windows available : $WSC0NF 

000030 'CANCEL' key 

0326 'CASE INVERT' key down 

0327 'CASE INVERT' key up 

000200 Click available : $WSC0NF 

000020 INT & ATT keys downstrokes avail. 

0100 was $WSS6, and $WSCVRWA : $WSC0NF 


0100 INTERRUPT & ATTENTION keys static bits and 
upstrokes available :$WSC0NF : D$RMSWS 

0250 'CIRCLE' key down : D$RMSWS 

0251 'CIRCLE' key up : D$RMSWS 

0262 Cursor Key (CENTER-CENTER) down : D$RMSWS 

0263 Cursor Key (CENTER-CENTER) up : D$RMSWS 

0260 Cursor Key (CENTER-LEFT) down : D$RMSWS 

0261 Cursor Key (CENTER-LEFT) up : D$RMSWS 

0264 Cursor Key (CENTER-RIGHT) down : D$RMSWS 

0265 Cursor Key (CENTER-RTGHT) up : D$RMSWS 

0270 Cursor Key (DOWN-CENTER) down : D$RMSWS 

0271 Cursor Key (DOWN-CENTER) up : D$RMSWS 

KBD & DPY keys static bits & upstrokes avail 
000040 : $WSC0NF : D$RMSWS 

0266 Cursor Key (DOWN-LEFT) down : D$RMSWS 

0267 Cursor Key (DOWN-LEFT) up : D$RMSWS 


I * 
I * 
I* 
I * 
I* 
I* 


D$RMS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
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val $WSCKDRD 
val $WSCKDRU 
val $WSCKF 
val $WSCKUCD 
val $WSCKUCU 
val $WSCKULD 
val $WSCKULU 
val $WSCKURD 
val $WSCKURU 
val $WSCLICK 
val $WSCLOSL 
val $WSCMDD 
val $WSCMDU 
val $WSCMODE 
fid $WSC0N2 
fid $WSC0N3 
fid $WSCONC 
typ $WSCONF 
typ $WSC0NF2 
val $WSCONFD 
typ $WSCONFDS 
val $WSCOPYD 
val $WSCOPYU 
val $WSCR 
sc $WSCTL 
val $WSCTLBP 
val $WSCTLCF 
val $WSCTLCK 
val $WSCTLCN 
val $WSCURDF 
val $WSCURFL 
val $WSCUROF 
val $WSCURON 
val $WSCURS 
val $WSDELCH 
val $WSDELK 
val $WSDELLN 
val $WSDKPOF 
val $WSDLLR 
val $WSDSCNT 
val $WSDSP 
val $WSDSPK 
val $WSDSPKS 
val $WSDSPUP 
val $WSECHO 
val $WSECHOS 
val $WSEFBPK 
val $WSEFCL 
val $WSEFCTL 
val $WSEFCTT 
val $WSEFDCI 
val $WSEFECI 
val $WSEFF1D 
val $WSEFF1U 
val $WSEFF2D 


0272 Cursor Key (DOWN-RIGHT) down 
0273 Cursor Key (DOWN-RIGHT) up 
0247 Clear keyboard fifo 
0254 Cursor Key (UP-CENTER) down 
0255 Cursor Key (UP-CENTER) up 
0252 Cursor Key (UP-LEFT) down 
0253 Cursor Key (UP-LEFT) up 
0256 Cursor Key (UP-RIGHT) down 
0257 Cursor Key (UP-RICHT) up 
0205 Click 

0005 Close line from under cursor rolling 
0274 ’COMMAND' key down 
0275 ’COMMAND' key up 
0246 Clear mode (bits) 

$WSC0NF2; ? 

BYTE; ? 

$WSC0NF; ? 

$WC0NFIG Status Bits 
$WC0NFIG third status byte 
0272 WS Config data (Len),((Loc)) 

$WC0NFIG 4 byte status structure : 

0214 ’COPY' key down 
0215 ’COPY’ key up 

0267 Carriage return (WS serial printers) : 
Workstation Control Code Function : 

0003 Beep : 

0000 Cursor off 

0002 Click : 

0001 Cursor on : 

0275 Return to default cursor font : 

0274 Load cursor font from ((Loc)) : 

0215 Turn Cursor Off at current position 
0214 Turn Cursor On at current position : 

0000 Reserved for cursor code (1800) : 

0001 Delete char under cursor, shift up : 

0177 ’DEL’ key (used by katakana) : 

0003 Delete line under cursor and roll up : 

004 Disable dead key processor : 

0235 'DLL response (8220)' character : 

0 Disconnect datastation 
0040 ’DISPLAY' key down : $WSTAT : 

0200 ’DISPLAY’ key 

0232 'DISPLAY' key shifted : 

0201 ’DISPLAY’ key released : 

0052 '*' used in keyin echo : 

0262 Set echo secret disply char (char) : 

0342 Bad parity keycode - E.F. keyboard : 

016 $WSEFST2; Last EFK Control code value: 
1 expanded function keyboard control : 

0337 E.F. keyboard - top control value : 

6 disable case inversn;Keycode Xlate Module 
5 enable case inversn; Keycode Xlate Module 
0230 function key *1’ down : 

0231 function key '1* up : 

0232 function key '2' down : 


$WSC0NFDS 

$WSC0NFDS 

$WSC0NFDS 


D$RMSWS 
D$RMSWS |* 
D$RMSWS 
D$RMSWS |* 
D$RMSWS |* 
D$RMSWS I* 
D$RMSWS |* 
D$RMSWS |* 
D$RMSWS |* 

: D$RMS 
D$RMSWS 
D$RMSWS |* 
D$RMSWS |* 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS I* 
D$RMSWS 
D$RMSWS 
D$RMSWS |* 
D$RMSWS |* 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS |* 
D$RMSWS |* 
D$RMSWS |* 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS |* 
D$RMSWS I* 
D$RMSWS |* 
D$RMSWS |* 
: D$RMSWS |* 
: D$RMSWS |* 
D$RMSWS |* 
D$RMSWS |* 
D$RMSWS |* 
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val 

$WSEFF2U 

0233 

function 

key 

’2’ 

up 

D$RMSWS 

I * 

val $WSEFF3D 

0234 

function 

key 

' 3 

down 

DSRMSWS 

1* 

va 1 

$WSEFF3U 

0235 

function 

key 

1 3 

up 

D$RMSWS 

1* 

val $WSEFF6D 

0236 

function 

key 

’4’ 

down 

D$RMSWS 

1 * 

val 

$WSEFFW 

0237 

function 

key 

'4 

up 

D$RMSWS 

1* 

val 

$WSEFF5D 

0240 

function 

key 

’5’ 

down 

D$RMSWS 

1* 

val 

$WSEFF5U 

0241 

function 

key 

’5’ 

up 

dSrmsws 

1* 

val $WSEFF6D 

0242 

function 

key 

’6’ 

down 

D$RMSWS 

1* 

val 

$WSEFF6U 

0243 

function 

key 

’6’ 

up 

D$RMSWS 


val 

$WSEFF7D 

0224 

function 

key 

’7’ 

down 

D$RMSWS 

1* 

val 

$WSEFF7U 

0225 

function 

key 

’7' 

up 

D$RMSWS 

1* 

val 

$WSEFF8D 

0226 

function 

key 

*8’ 

1 down 

dSrmsws 

1* 

val 

$WSEFF8U 

0227 

function 

key 

’8’ 

up 

D$RMSWS 

1* 

val 

$WSEFKAB 

012 

Set field keyin 

abort (KEY); 

D$RMSWS 

1* 

val 

$WSEFKAR 

013 

Reset al' 

field 

keyin abort keys; 

D$RMSWS 

1* 

val 

$WSEFKFO 

0341 

extended 

function keyin FIFO overflow 

D$RMSWS 

1* 

val 

$WSEFKID 

3 

Get keyboard 

I.D. ((LOC)) 

D$RMSWS 

1* 

val 

$WSEFKTP 

014 

Activate 

function trap for key (KEY); 

D$RMSWS 

1* 


$WSEFKTP (Keycode Translate Module) 


val $WSEFKTR 015 Reset all function key traps; : D$RMSWS |* 

val $WSEFLCD 2 LCD control (MASK),(BYTE); : D$RMSWS I* 

val $WSEFLOW 1 Expandd function KBD Flow control(CTL):D$RMSWS I* 
val $WSEFONL 0200 ’ONLINE' status (always true) : DSRMSWS |* 

val $WSEFRDY 0001 Key ready : D$RMSWS I* 

val $WSEFRPT 4 set repeat key timeout (TIME) : D$RMSWS I* 

$WSEFRPT (Keycode Translate Module) I* 

val $WSEFRST 0 Reset all but Keycode Xlate Module path:D$RMSWS |* 

val $WSEFST2 016 Get status bits + $WSTATUS bits ((LOC)):D$RMSWS I* 

val $WSEFSTC 7 Get current static bits ((LOC)) ; D$RMSWS |* 

val $WSEFSTF 010 Get static fifo bits ((LOC)) : D$RMSWS I* 

val $WSEFSTL 011 Get latched static bits ((LOC)) ; D$RMSWS |* 

val $WSENT1D 0276 ’ENTER (LEFT)’ key down (U.S.A.) : D$RMSWS |* 

val $WSENT1U 0277 ’ENTER (LEFT)’ key up (U.S.A.) : D$RMSWS |* 

val $WSENT2D 0314 ’ENTER (RIGHT)' key down (U.S.A.) : D$RMSWS |* 

val $WSENT2U 0315 ’ENTER (RIGHT)’ key up (U.S.A.) : D$RMSWS |* 

val $WSENTD 0314 $WSENT2D ’ENTER' key down (U.S.A.) : D$RMSWS |* 

val $WSENTK 0015 ’ENTER’ key : D$RMS 

val $WSENTU 0315 $WSENT2U ’ENTER’ key up (U.S.A.) : D$RMSWS I* 

val $WSESC1 0226 WSI0 ’escape-sequence-1' codes follow: D$RMSWS I* 

val $WSESC1L 1 $WSEFCTL;last escape-seq-1 control code:D$RMSWS I* 


val $WSF1 

0001 

’FI' 

key down 

: $WSTAT 

D$RMSWS 

val $WSF1K 

0204 

'FI' 

key 


D$RMSWS 

val $WSF1KS 

0223 

’FI’ 

key shifted 


D$RMSWS 

val $WSF1UP 

0205 

’FI’ 

key released 


D$RMSWS 

val $WSF2 

0002 

' F2 ’ 

key down 

: $WSTAT 

D$RMSWS 

val $WSF2K 

0206 

’ F2 ’ 

key 


D$RMSWS 

val $WSF2KS 

0224 

’ F2' 

key shifted 


D$RMSWS 

val $WSF2UP 

0207 

1 F2' 

key released 


D$RMSWS 

val $WSF3 

0004 

' F3' 

key down 

: $WSTAT 

D$RMSWS 

val $WSF3K 

0210 

’ F3' 

key 


D$RMSWS 

val $WSF3KS 

0225 

’ F3* 

key shifted 


D$RMSWS 

val $WSF3UP 

0211 

’ F3 ’ 

key released 


dSrmsws 

val $WSF4 

0010 

’ F4’ 

key down 

: $WSTAT 

D$RMSWS 

val $WSF4K 

0212 

’F4 ’ 

key 


D$RMSWS 

val $WSF4KS 

0226 

’ F4' 

key shifted 


D$RMSWS 
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val $WSFWP 0213 'F4' key released : 

val $WSF5 0020 'F5 f key down : $WSTAT : 

val $WSF5K 0214 'F.S' key : 

val $WSF5KS 0227 'F5' key shifted : 

val $WSF5UP 0215 'F5' key released : 

val $WSFF 0266 Form feed (for WS serial printers) : 

val $WSGENUP 0340 generic rollover key upstroke : 

sc $WSGETCH Obtain One Keyboard Buffer Character : 

val $WSHELPD 0212 ’HELP 1 key down 

val $WSHELPU 0213 'HELP 1 key up 

val $WSIDOCS 0224 INS, DEL, OPEN or CLOSE follows 

val $WSIKCOF 0211 Key click off : 

val $WSIKCON 0210 Key click on 

val $WSIN 0254 In numeric (lmax),(rmax),((loc)),(end) 

val $WSINI 0255 In numrc imm(lmax), (rmax), (skip),(end) 

val $WSINSCH 0000 Insert space under cursor, shift down 

val $WSINSLN 0002 Roll down lines from cursor to bottom 

val $WSINSTD 0220 'INSERT' key down 

val $WSINSTU 0221 'INSERT' key up 

val $WSINT 01000 'INTERRUPT' key down : $WSTAT : 

val $WSINTK 0216 'INTERRUPT' key : 

val $WSINTKS 0230 'INTERRUPT' key shifted : 

val $WSINTUP 0221 'INTERRUPT' key released 

sc $WSIO Perform Workstation 1/0 : 

val $WSIOFCF 0200 $WSI0 function code first value 

val $WSI0FCL 0276 $WSK1CHR; $WSI0 func code last value : 

typ $WSIOMODE $WSI0 Mode Bits 

val $WSIS 0252 In string (con),(max),((loc)),(end) : 

val $WSISI 0253 In string imm (con),(max),(skip),(end) 

val $WSITIME 0256 Set inter-char timeout to (t) seconds: 

val $WSK1CHR 0276 Keyin un-xlated char at ((LOC)) : 

$WSK1CHR with cursor on/off 

val $WSKBD 0100 'KEYBOARD' key down : $WSTAT : 

val $WSKBDK 0202 'KEYBOARD' key 

val $WSKBDKS 0233 'KEYBOARD' key shifted : 

val $WSKBDUP 0203 'KEYBOARD' key released : 

val $WSKCTLT 0235 $WSKDLLR; Kbd control code top value : 

val $WSKEYCH 0270 Keyin un-xlated character at ((Loc)) : 

val $WSKFULL 0234 'Keyin FIFO Full' Character 

val $WSKMASK 0017 Workstation kind in bits 0-3 : 

val $WSLC 0000 Left column 

val $WSLCDCR 0100 CIRCLE (0/1) (0FF/0N) 

val $WSLCDDP 0004 DISPLAY (0/1) (OFF/ON) : 

val $WSLCDKD 0010 KEYBOARD (0/1) (0FF/0N) : 

val $WSLCDLC 0001 LOWER CASE (0/1) (0FF/0N) : 

val $WSLCDSQ 0020 SQUARE (0/1) (0FF/0N) : 

val $WSLCDTR 0040 TRIANGLE (0/1) (OFF/ON) : 

val $WSLCDUC 0002 UPPER CASE (0/1) (0FF/0N) : 

val $WSLCFS 0260 Load char font set from ((loc)) : 

val $WSLENON 001 enable Keycode Xlate Module path : 

val $WSLF 0265 Line feed (for WS serial printers) : 

val $WSLNTOF 020 disable Keycode Translate Module path 

val $WSLOCKD 0326 'LOCK' key down : 

val $WSLOCKU 0327 'LOCK' key up : 

val $WSLSTSK 0222 $WSATTUP, Last static key code 
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D$RMSWS 
D$RMSWS 
D$RMSWS 
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D$RMSWS 
D$RMSWS 
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D$RMSWS 
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D$RMSWS 
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D$RMSWS 
D$RMSWS 
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D$RMSWS 
D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 
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D$RMSWS 
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D$RMSWS 

D$RMSWS 
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val $WSMDIGO 
val $WSMES 
val $WSHKCON 
val $WSMNE 
val $WSMNESC 
val $WSMNI 
val $WSMNW 
val $WSMPADN 
val $WSNOP 
val $WSNPE1D 
val $WSNPE1U 
val $WSNPE2D 
val $WSNPE2U 
val $WSNPEND 
val $WSNPENU 
val $WSNPTBD 
val $WSNPTBU 
val $WSONCH 
val $WSONL 
val $WSOPENL 
val $WSOS 
val $WSPNTD 
val $WSPNTU 
val $WSPTOFF 
val $WSPTRON 
val $WSPUPOF 
val $WSQUITD 
val $WSQUITU 
val $WSRC 
val $WSRDY 
val $WSRECLD 
val $WSRECLU 
val $WSRECON 
$WSRECON 
$WSRECON 
$WSRECON 
val $WSREMVD 
val $WSREMVU 
val $WSRESET 
val $WSRESTR 
$WSRESTR 
val $WSRPTK 
val $WSSCRE 
val $WSSCRL 
val $VJSSCRR 
val $WSSHF1D 
val $WSSHF1U 
val $WSSHF2D 
val $WSSHF2U 
val $WSSHF3D 
val $WSSHF3U 
val $WSSHF4D 
val $WSSHFW 
val $WSSHFLD 
val $WSSHFLU 


0040 Digits only 
0002 Echo secret (char) 


$WST0M0DE 

$WST0M0DE 


0020 Keyin continuous : ^WSTOMODE 

0010 No echo or cursor : $WSI0M0DE 

0200 No escape l>4 0-037 or 0177: $WSI0M0DE 
0004 No case inversion : $WSI0M0DE 

0001 Inhibit ’DISPLAY 1 key wait:$WST0M0DE 
0100 Pad numeric decimal part : $WSI0M0DE 
0244 No operation 

0300 number pad ’ENTER' key (top) down 

0301 number pad 'ENTER* key (top) up 

0324 number pad 'ENTER' key (bottom) down 

0325 number pad 'ENTER' key (bottom) up 

0324 number pad 'ENTER' key down 

0325 number pad 'ENTER* key up 

0322 number pad 'TAB' key down 
0323 number pad 'TAB' key up 
0251 Output repeated (char),(n) times 

0200 'ONLINE' status (always true):$WSTAT 

0004 Open line from under cursor rolling 
0250 Output string (len),((loc)) 

0206 POINT' key down 

0207 POINT' key up 


0213 Turn Off Printer connected to WS 
0212 Turn On Printer connected to WS 
002 Disable Locked Key Processing 
0204 'QUIT' key down 
0205 'QUIT' key up 
0117 Right column 

0400 Key ready : $WSTAT 

0222 'RECALL' key down 
0223 'RECALL' key up 
0273 WS Reconfig data (Len),((Loc)) 
where ((Loc)) has the format: 
Mask_0, Value_0. Mask_l, Ealuc_l 
Mask_(Len-1), Value_(Len-1) 

0216 'REMOVE' key down 
0217 'REMOVE' key up 


0217 Reset Window to Default Screen size : 
0225 Same as $WSRESET except : 

8600 KDS attributes are not disabled 
0375 Repeated key;returnd only by $WSKEYCH 
0010 End of scroll data : 

0006 Scroll left < followed by data > 

0007 Scroll right < followed by data > : 

0330 'SHIFT (LEFT/LEFT)' key down (U.S.A.): 
0331 'SHIFT (LEFT/LEFT)' key up (U.S.A.) : 

0304 'SHIFT (LEFT/RICHT)' key down (U.S.A. : 
0305 'SHIFT (LEFT/RICHT)’ key up (U.S.A.) : 
0332 'SHIFT (RICHT/LEFT)' key down (U.S.A.: 
0333 'SHIFT (RIGHT/LEFT)' key up (U.S.A.) : 
0306 'SHIFT (RICHT/RIGHT)' key down (U.S.A: 
0307 'SHIFT (RIGHT/RIGHT)’ key up (U.S.A.): 
0330 'SHIFT (LEFT)' key down (U.S.A.) : 

0331 'SHIFT (LEFT)' key up (U.S.A.) : 


D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS I* 

D$RMSWS I* 

D$RMSWS |* 

D$RMSWS I* 

D$RMSWS |* 

D$RMSWS |* 

D$RMSWS |* 

D$RMSWS |* 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSVJS 

D$RMSWS I * 

D$RMSWS |* 

D$RMSWS 

D$RMSWS 

D$RMSWS 

D$RMSWS |* 

D$RMSWS I* 

D$RMSWS 

D$RMSWS 

D$RMSWS |* 

D$RMSWS I* 

D$RMSWS 


D$RMSWS |* 
D$RMSWS |* 
D$RMSWS 
D$RMSWS 

:D$RMSWS 
D$RMSWS 
D$RMSWS 
D$RMSWS 
dSrmsws I * 

D$RMSWS |* 
D$RMSWS I* 
D$RMSWS | a 
D$RMSWS I :!r 
D$RMSWS I* 
D$RMSWS |* 
D$RMSWS |* 
D$RMSWS I* 
D$RMSWS |* 
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val 

$WSSHFRD 

0332 

'SHIFT (RIGHT)' key down (U.S.A.) 

D$RMSWS 

1* 

val 

$WSSHFRU 

0333 

'SHIFT (RIGHT)' key up (U.S.A.) 

dSrmsws 

I * 

va 1 

$WSSHFTF 

0330 

first: SHTFT key 

dSrmsws 

1* 

val 

$WSSHFTL 

0337 

$WSALTRU, last SHIFT key 

D$RMSWS 

1 * 


$WSSHSW 

000221 *** being phased out *** NOT IN DASL 


val 

$WSSKXTA 

0257 

Set keyin translate table at (Hoc)) : 

D$RMSWS 


val 

$WSSKXTP 

0261 

Set keyin txlate table at((loc)),(psk):D$RMSWS 

1 * 

val 

$WSSM0DE 

0245 

Set mode (bits) 

D$RMSWS 


val 

$WSSQARD 

0244 

'SQUARE' key down 

d$rmsws 

1* 

val 

$WSSQARU 

0245 

'SQUARE' key up 

dSrmsws 

1* 

val 

$WSSVM0D 

0264 

Set video mode (mode) 

d$rmsws 



$WSSVRW 

0220 

*** being phased out *** NOT IN DASL 



val 

$WSSWLR 

0223 

Set sub window (horz-Ieft),( horz-rt) 

dSrmsws 


val 

$WSSWTB 

0222 

Set sub window (vert-top),(vert-bot) 

dSrmsws 


val 

$WSSYSD 

0200 

'SYSTEM' key down 

d$rmsws 

1* 

val 

$WSSYSU 

0201 

'SYSTEM' key up 

d$rmsws 

1* 

val 

$WSTABD 

0320 

'TAB' key down 

d$rmsws 

1* 

val 

$WSTABU 

0321 

'TAB' key up 

D$RMSWS 

1* 

tvp 

$WSTAT 

$WSTATUS Status Bits 

D$RMSWS 


sc 

$WSTATUS 

Workstation, Get Status 

dSrmsws 


val 

$WSTIME0 

0376 

Keyin timeout abort char;Aborts $WSI0 
'TRIANGLE' key down 

:D$RMSWS 


val 

$WSTRIAD 

0246 

D$RMSWS 

1* 

val 

$WSTRIAU 

0247 

'TRIANGLE' key up 

D$RMSWS 

1* 

val 

$WSTWAIT 

0263 

Perform n second wait (n) 

d$rmsws 


val 

$WSUNDOD 

0210 

'UNDO' key down 

d$rmsws 

1* 

val 

$WSUNDOU 

0211 

'UNDO 1 key up 

d$rmsws 

1 * 

val 

$WSVI 

0206 

Video inverted 

d$rmsws 


val 

$WSVIEWD 

0202 

'VIEW' key down 

d$rmsws 

I* 

val 

$WSVIEWU 

0203 

'VIEW' key up 

d$rmsws 

1* 

val 

$WSVM2L 

0000 

Vid Mode: Bold-face, double intensity 

:D$RMSWS 


val 

$WSVMAF 

0003 

Video Mode: Alternate font 

D$RMSWS 


val 

$WSVMBNK 

0002 

Video Mode: Blink 

D$RMSWS 


val 

$wsvhunl 

0001 

Video Mode: Underline 

D$RMSWS 


val 

$WSVN 

0207 

Video normal 

D$RMSWS 


SC. 

$WSWAIT 

Enable Port and Wait for Character 

D$RMSWS 


val 

$WSWAKEK 

0377 

Wake up; Aborts $WSI0 

D$RMSWS 



fid 

$X1 

[4-11 $PFDBBUF; 


: $ACB 

fid 

$X1 

[8-11 $PFDBBUF; 7 more buffers 


: $ICB 

fid 

$X2 

[8-11 $PFDBBUF; 


: $ACB 

fid 

$X7 

[16-1J $PFDBBUF; 15 more buffers 

: $DCB 

val 

$XCFHS00 

000 Dummy Code, Undefined 

$SCFMSC0DES 

D$FAR 

val 

$XCFMS01 

001 File pos out of range 

$SCFMSC0DES 

D$FAR 

val 

$XCFMS02 

002 No such record 

$SCFMSCODES 

D$FAR 

val 

$XCFMS03 

003 ISAM key not found 

$SCFMSC0DES 

D$FAR 

val 

$XCFMS04 

004 ISAM duplicate key 

$SCFMSCODES 

D$FAR 

val 

$XCFMS05 

005 Record already exists 

$SC-FMSC0DES 

D$FAR 

val 

$XCFHS06 

006 No current record exists 

$SCFMSCODES 

D$FAR 

val 

$XCFMS07 

007 File positioned to EOF 
000131 'Y', DEFINE'd 

$SCFMSCODES 

D$FAR 

val 

$YES 


D$PC'R 
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